Длина стороны треугольника равна a, периметр равен p, длины двух других сторон равны между собой. Найдите эти длины.

//Версия написания (по просьбе Эникей): //PascalABCCompiler.Core v3.3.0.1540 (16.09.2017)var    a, p: integer;begin   write('Введите периметр и основание через пробел и нажмите "enter": ');    read(p, a);    write('b = c = ', (p-a)/2);end.