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

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.