даны два числа. если первое число больше второго то оба числа возвести в квадрат. в противоном случае каждое число увеличить на 100.
Pascal.ABC.NET

Ответ:

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.

Объяснение: