Question

помогите умоляю
номер 4

Answer 1

Var a, b, c, p :longint; begin WriteLn('Введите первую сторону треугольника a'); readLn(a); WriteLn('Введите вторую сторону треугольника b'); readLn(b); writeLn('Введите третью сторону треугольника c'); readLn(c); p:=(a+b+c); writeLn('Периметр треугольника равен ', p); end.