1 вывести на экран все трехзначные числа кратные 502 найти количество

program zz1;
var i,k,s:integer;
begin
for i:=100 to 999 do //заводим цикл для всех трехзначных чисел
if i mod 50 = 0 then write(i:5); //проверяем, если число делится на 50, то выводим его на экран
writeln;
for i:=20 to 60 do//заводим цикл для чисел от 20 до 60
if i mod 2 = 0 then k:=k+1;//проверяем, если число делится на 2, то считаем его
write(количество четных чисел = ,k); //выводим ответ
writeln;
for i:=100 to 150 do//заводим цикл для чисел от 100 до 150
if i mod 2 = 1 then s:=s+i;//проверяем, если число не делится на 2, то добавляем его в сумму
write(сумма нечетных чисел = ,s); //выводим ответ
end.