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

Question

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

Comments

мало данных. Даны их стороны или площади?

Answer 1

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.