Ответ:

вводим числа через пробел

Объяснение:

Program z1n1;

var b,n:integer;

begin;

writeln('введите два числа');

readln(b,n);

if b>n then begin

b:=b*b;

writeln('корень большего числа равен', b);

end;

if b<n then begin

n:=n*n;

writeln('корень большего числа равен', n);

end;

end.