Найдите наибольший из двух квадратов чисел a и b и выведите на печать n=1,если а²> b² и n=2,если наобарот.(паскаль)

Var
a, b, n: integer;
begin
read(a, b);
if sqr(a)>sqr(b) then n:=1 else n:= 2; writeln('N = ', n);
end.