Вывести на экран все четные числп от n до m, в поскале

Var

n, m:integer;

i:integer;

begin

write ('От: ');

readln (n);

write ('До: ');

readln (m);

write ('Четные числа от ', n, ' до ', m, ': ');

for i:=n to m do

if (i mod 2) = 0 then write (i, ', ');

end.

Var n, m, i: integer;

begin

Readln (n);

Readln (m);

for i:=n to m do

if i mod 2 = 0 then

begin

write (i,' ');

readln;

end;

end.