№1. периметр треугольника равен р, длина одной стороны равна а, а другой - в. найти длину третьей стороны. №2. длина стороны треугольника равна а, периметр равен р, длины двух других сторон равны между собой. найти эти длины.

Program zadanie_1;
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.

Program zadanie_2;
Var a,b,c,p:real;
Begin
 Writeln('Формула нахождения P треугольника: P=A+B+C');
 Writeln('Введите значения P,A');
 Readln(p,a);
 b:=(p-a)/2;
 c:=b;
 Writeln('C=',c);
 Writeln('B=',b);
End.