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

var

a, P:integer;

begin

writeln ('Введите периметр равнобедренного треугольника: ') ;

read (P) ;

writeln ('Введите боковую сторону равнобедренного треугольника: ') ;

read (a) ;

writeln ('Основание равнобедренного треугольника: ', P-2*a) ;

end.