Напиши код программы которая будет вычислять периметр фигуры

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.