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

Question

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

Answer 1

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.