1. Вывести все четные числа начиная с числа N до числа M. Числа N и M задает пользователь. Напишите программу Паскале, пожалуйста.

Program n_1;

var n, m, i:integer;

begin

   read (n, m);

   for i:=n to m do if i mod 2 = 0 then write(i, ' ');

end.