// задание 1
var
x, y, z1, z2: Real;
begin
Write ('Введите x, y:');
ReadLn (x, y);
z1 := x * x * x + y;
z2 := x * y * y;
if z1 > z2 then
WriteLn (z1)
else
WriteLn (z2);
ReadLn;
end.
// задание 2
var
d, a, b: Real;
begin
Write ('Введите сторону квадрата:');
ReadLn (d);
Write ('Введите стороны прямоугольника:');
ReadLn (a, b);
if d * d < a * b then
WriteLn ('Площадь квадрата меньше площади прямоугольника')
else if a * b < d * d then
WriteLn ('Площадь прямоугольника меньше площади квадрата')
else if a * b = d * d then
WriteLn ('Площади прямоугольника и квадрата равны');
ReadLn;
end.