Даны два числа а и в.найдите квадрат большего из них и, если это первое число, выведите "1", а если второе, то выведите "2". (а=5,в=7). решите на

Program zz;
var a,b:integer;
begin writeln('Введите число A ');
readln (a); writeln('Введите число  B '); 
readln (b); a:=a*a; b:=b*b; 
if a>b then writeln(a)       
          else writeln(b);
 if a>b then writeln(1)
       else writeln(2);
end.