Даны два числа А и В.Найдите квадрат большего из них и, если это первое число, выведите "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.