Ответ:

Объяснение:

Var a, b, c, p:real;

Begin

Writeln ('Формула нахождения P треугольника: P=A+B+C') ;

Writeln ('Введите значения P, A, B') ;

Readln (p, a, b) ;

c:=p-a-b;

Writeln ('C=', c) ;

End.