Даны три числа , найти квадрат суммы наибольшего и наименьшего из нихязык PASKAl

Question

Даны три числа , найти квадрат суммы наибольшего и наименьшего из них
язык PASKAl

Answer 1

Var a, b, c: integer;
begin
readln (a, b, c);
if a>b>c or c>b>a then sqr(a+c);
if b>a>c or c>a>b then sqr(b+c);
if a>c>b or b>c>a then sqr(a+b)
end.

Не компилировала, логика подобная. вывода нет, так как вывести не сказано