найти квадрат наибольшего из двух чисел а и б. вывести на экран число 1, если наибольшим является число а , число 2- если наибольшим числом является б

var a,b:integer;begin writeln('a=');readln(a);writeln('b=');readln(b);if (a>b) then  writeln (sqr(a),' ' ,1) else writeln (sqr(b),' ', 2);readln;end.