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

Var a,b:real;
begin 
writeln('vvedi a:');
readln(a);
writeln('vvedi b:');
readln(b);
if (a*a) >(b*b) then writeln('N=1') else writeln('N=2');
end.