Найти квадрат наибольшего из двух чисел: а и b и корень квадратный наименьшего числа. вывести полученные значения. если a и b равны, вывести сообщение об этом. составить алгоритм с блок-схемы.

Объяснение:

var

 a, b: integer;

begin

 readln(a, b);

 if (a = b) then writeln('Числа равны!')

 else writeln(sqr(a), ' ', sqr(b));

end.

Смотри картинку

Объяснение:

var a,b:integer;

begin

read (a,b);

if a=b then writeln ('a = b')

else

if a>b then writeln (sqr(a),'   ',sqrt(b))

else writeln (sqr(b),'   ',sqrt(a))

end.