написать программу на паскале выводящую на экран все четные числа от 20 до 40

Вопрос от посетителя

написать программу на паскале выводящую на экран все четные числа от 20 до 40

Отвечает Илюха:

Program num1;
Uses crt;
Var
i : integer;
Begin
clrscr;
for i:=20 to 40 do
if (i MOD 2) = 0 then write(i,’ ‘);
End.