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

var

a, P:integer;

begin

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

read (P) ;

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

read (a) ;

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

end.