Длина стороны треугольника равна А, периметр равен Р, длины двух других сторон равны между собой. Найти эти длины( Составить алгоритм)
P-периметр, A-длина одной стороны, B-длина одной из двух других P=2B+A B=(P-A)/2 var p,a:real; begin read (p,a); write ((p-a)/2); end.