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

Question

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

Answer 1

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.