я так поняла,что нужна только формула.
P = a+b+c
b = с возьмём их за х
b + с = х*2
P = а + х*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.