Question

ПОМОГИТЕ НАПИСАТЬ ЗАДАЧУ.
ввести два числа, найти квадрат наибольшего и извлечь квадрат наименьшего

Answer 1

Var a,b:real;
Begin
readln(a,b); 
      if a>b then begin writeln('Квадрат числа',a,'=',a*a);                   
                               writeln('Корень числа ',b,'=',sqrt(b));             
                      end; 
      if b>a  then begin writeln('Квадрат числа ',b,'=',b*b);                   
                                writeln('Корень числа ',a,'=',sqrt(a));             
                      end;                   
End.

Answer 2

что-то не то, мозги уже не варят, подожди я исправлю

Answer 3

вот так