Даны 2 прямоугольника с разной площадью. вывести на экран монитора площадь наименьшего.

Var a,b:real;
begin
read (a,b);
if (a<>b) and (a>0) and (b>0) then
begin
if (a>b) then writeln (b);
 if (b>a) then writeln (a);
end
else writeln ('Неверные площади');
end.