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

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.

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