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

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