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

Question

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

Answer 1

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