Program Sum Sub Square
Var A, B; real;
SumAB, Sub AB: real’
Procedure Sum_Sub {X,Y: real; var Sum,Sub: real};
Begin
Sum=X*X+Y*Y
Sub=X*X-Y*Y
Begin
A:=1,5; B=3.4
SumSub (A,B,SumAB,SubAB);
Writeln (‘Сумма квадратов чисел’, A, и, B, ‘=’, SumAB);
Writeln (‘Разность квадратов чисел, A, ‘и’, B, ‘=’, SubAB);
End.