Люд, пожалуйста помогите! Язык Free Pascal 1) Отыскать сумму всех трехзначных

10 и 12 разве нечетные числа?

учитель так написала, я не увидела

тогда имелось ввиду вывести все двузначные ЧЕТНЫЕ числа

нет, выведите нечетные, не обращая внимания на пример

пожалуйста

1)
Program n1;
var i: integer;
sum: real;
begin
sum:=0;
for i:=102 to 1000 do if (i mod 3=0) then sum:=sum+i;
writeln('Сумма: ',sum);
end.
2)
Program n2;
var i: integer;
begin
for i:=10 to 99 do if (i mod 2lt;gt;0)then writeln(i);
end.

Я так сообразил что программки для тебя нужны в таком виде !!!
Program prog1;
var i: integer;sum: real;
begin
sum:=0;
repeat 
i:=i+1;
 if (i mod 3=0) then sum:=sum+i;
 until (igt;100) and (ilt;1000);
writeln('Сумма= ',sum);
end.
2)
Program prog2;
var i: integer;
begin
i:=10;
repeat
i:=i+1;
 if (i mod 2lt;gt;0)then writeln(i);
 until igt;=100;
end.