Даны вещественные числа N и M. Найти на интервале <от меньшего из них до большего из них> с шагом 0.1 все вещественные числа, делящиеся на 0.5 с остатком не более 1-го знака после точки — Pascal(Паскаль)

program zad1;

uses crt;

var
  p, dx, n, m: real;

begin
  clrscr;
  writeln('VVEDITE n,m');
  readln(n, m);
  if n > m then
  begin
    p := n;
    n := m;
    m := p;
  end;
  dx := n;
  while dx < m do
  begin
    p := round(dx) mod 5;
    if round(p * 10) = p * 10 then
      writeln(dx:1:2, ' ', p:1:2);
    dx := dx + 0.1;
  end;
  readkey;

end.