Вывести на экран действительные числа в промежутке от 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.