Вывести на экран действительные числа в промежутке от n до m с шагом H=2.

На паскале

---

uses crt;

var n, m: real;

begin

write ('Начало промежутка: '); readln (n);

write ('Конец промежутка: '); readln (m);

write (n,' ');

while n< = (m-2) do begin

n:=n+2;

write (n,' ');

end;

end.