Дана равнобедренная трапеция,боковая сторона а, одно из оснований в, дан периметр. найти второе основание и вывести на экран на паскале

Var a,b,c,p:integer;
begin
writeln('a, b, p:');
readln(a,b,p);
c:=p-(2*a+b);
writeln('c = ',c);
end.

Пример:
a, b, p:
4 10 25
c = 7