Написать программу решения неравенства (x-a)(x-b)<=0 — Pascal(Паскаль)

uses crt;
var a,b:real;
begin
clrscr;
writeln('Решение неравенства (x-a)(x-b)<=0');
writeln('Введите значения a,b:');
readln(a,b);
if a>b then write(b:0:1,'<=x<=',a:0:1)
else if a<b then write(a:0:1,'<=x<=',b:0:1)
else write('x=',a:0:1);
readln
end.