Решите!

Задача №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.