Составьте программу, которая вычисляет периметр треугольника со сторонами a,b,c и выводит результат на экран.

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.