Длина стороны треугольника равна a, периметр равен p, длины двух других сторон равны между собой. Найдите эти длины.

я так поняла,что нужна только формула.P = a+b+cb = с возьмём их за хb + с = х*2P = а + х*2х*2 = Р-аНадеюсь,что помогла 

var a,b,c,p:integer;

begin

readln(a,p);

b:=(p-a)/2;

c:=b;

writeln('b=',b,' c=',c);

readln();

end.