Question

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

Answer 1

//Версия написания (по просьбе Эникей):
//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.