Түс датчик режимдерін айтындаршы

1)

Program Pr1;
uses crt;
var mas:array[100..999] of integer;
i:integer;
Begin
clrscr;
for i:=100 to 999 do mas[i]:=i; {1 sposob}
for i:=100 to 999 do if mas[i] mod 9 =0 then writeln(mas[i]);
i:=100; {2 sposob}
while i<=999 do begin
if mas[i] mod 9=0 then writeln(mas[i]);
i:=i+1;
end;
i:=100; {3 sposob}
repeat
if mas[i] mod 9=0 then writeln(mas[i]);
i:=i+1
until i=999
end.

2)

Program Pr1;
uses crt;
var mas:array[100..999] of integer;
i,v:integer;
Begin
clrscr;
v:=0;
for i:=100 to 999 do mas[i]:=i; {1 sposob}
for i:=100 to 999 do if mas[i] mod 17 =0 then v:=v+mas[i];
writeln(v);
i:=100; {2 sposob}
v:=0;
while i<=999 do begin
if mas[i] mod 17=0 then v:=v+mas[i];;
i:=i+1;
end;
writeln(v);
i:=100; {3 sposob}
v:=0;
repeat
if mas[i] mod 17=0 then v:=v+mas[i];
i:=i+1
until i=999;
writeln(v);
end.

Только сегодня начал учить Паскаль и заметил у вас кучу ошибок. Вы сделали очень много лишних действия, и непонятно, чему равны переменные molod и sredny? А если это строки, то b и а тоже должны быть строковыми.  Я бы сделал так

program haracteristy;  

uses crt;

var vozrast: Integer;

begin  

clrscr;

writeln ('Введите свой возраст');  

read (vozrast);  

if (vozrast >0) and (vozrast <18) then  

write ('Вы еще очень молоды')

else if vozrast >18 then

write ('Вы в расцвете сил')

else  

write('Ошибка! Возраст не может быть меншье нуля');

end.