1) Вывести на экран все трехзначные числа кратные 502) Отыскать сумму

program zz1;
var i,s:integer;
begin
for i:=100 to 999 do //заводим цикл для всех трехзначных чисел
if i mod 50 = 0 then write(i:5); //проверяем, если число делится на пятьдесят, то выводим его на экран

writeln;//переход на новейшую строку для вывода ответа
for i:=100 to 150 do//заводим цикл для чисел от 100 до 150
if i mod 2 = 1 then s:=s+i;//проверяем, если число не делится на 2, то прибавляем его в сумму
write(сумма нечетных чисел от 100 до 150 = ,s); //выводим ответ
end.