Найти квадрат наибольшего из трех чисел

Question

Найти квадрат наибольшего из трех чисел

Answer 1

var
a,b,c : integer;

begin
writeln('Введите три числа:');
readln(a,b,c);
 if a > b then
  if a > c then writeln(sqr(a))
  else writeln(sqr(c))
 else if b > c then writeln (sqr(b)) else writeln(sqr(c)); 
end.