Begin
Read (a,b);
If a>b then begin
A:=a*a;
B:=b*b;
End
Else begin
A:=100+a;
B:=100+b;
End;
End.
Объяснение:
Begin
Read (a,b);
If a>b then begin
A:=a*a;
B:=b*b;
End
Else begin
A:=100+a;
B:=100+b;
End;
End.
Объяснение: