program LargestSquare;varA, B, N: Integer;beginreadln(A, B);
if A A > B B thenN := 1elseN := 2;
writeln(N);end.
program LargestSquare;
var
A, B, N: Integer;
begin
readln(A, B);
if A A > B B then
N := 1
else
N := 2;
writeln(N);
end.