Найдите квадрат наибольшего из 2-ух чисел А и В и вывести

program zz1;
var a,b,kv:integer; //задаем переменные целого типа
begin
write(введите первое число ); //вводим с клавиатуры 1-ое данное число
read(a);
write(введите второе число ); //вводим с клавиатуры 2-ое данное число
read(b);
if agt;b then kv:=sqr(a) else kv:=sqr(b); //проверяем, если 1-ое число больше, то возводим его в квадрат, если нет, то 2-ое
if agt;b then writeln(N=1) else writeln(N=2);//проверяем, если 1-ое число больше, то выводим на экран 1-ый признак, если нет, то второй
end.