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