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

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