Question

помогите с 4 вопросом

Answer 1

program Perimeter;
var a, b, c, p :integer;
begin
write('Введите стороны треугольника (через пробел): ');
readln(a, b, c);
p:= a + b + c;
writeln('Периметр треугольника равен ', p)
end.