1 вывести на экран все трехзначные числа кратные 502 найти количество четных чисел начиная с числа 20 до 603 найти сумму нечетных чисел от 100 до 150 паскаль

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.