Составить программу нахождения основания равнобедренного треугольника, если боковая сторона и периметр вводятся с клавиатуры.

var
a,P:integer;
begin
writeln('Введите периметр равнобедренного треугольника: ');
read(P);
writeln('Введите боковую сторону равнобедренного треугольника: ');
read(a);
writeln('Основание равнобедренного треугольника: ',P-2*a);
end.