Найдите квадрат наибольшего из двух чисел а и в и вывести на печать признак n=1,если наибольшим является а ,и n=2,если наибольшим является в.

Var a,b:real;
begin
readln(a,b);
a:=sqr(a);
b:=sqr(b);
if a > b then write('n=1')
else write('n=2');
end.