Найдите квадрат наибольшего из чисел a b введите результат сравнения ** экран pascal abc

Question

Найдите квадрат наибольшего из чисел a b введите результат сравнения на экран pascal abc

Answer 1

Program project;
var
  a, b, sq: real;
begin
  Write('Введите 1-ое число: ');
  Readln(a);
  Write('Введите 2-ое число: ') ;
  Readln(b);
  if a>b then
  begin
     sq:=sqr(a);
     Writeln('Максимальное число: ',a:0:4)
  end
  else
  begin
     sq:=sqr(b);
     Writeln('Максимальное число: ',b:0:4);
  end;
  Writeln('Квадрат максимального числа: ',sq:0:4);
  Readln;
end.