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

program zz1;

var a, b, kv:integer; / /задаем переменные целого типа

begin

write ('введите первое число '); / /вводим с клавиатуры первое заданное число

read (a);

write ('введите второе число '); / /вводим с клавиатуры второе заданное число

read (b);

if a>b then kv:=sqr (a) else kv:=sqr (b); / /проверяем, если первое число больше, то возводим его в квадрат, если нет, то второе

if a>b then writeln ('N=1') else writeln ('N=2'); //проверяем, если первое число больше, то выводим на экран первый признак, если нет, то второй

end.