Составьте программу, которая вычисляет периметр треугольника со сторонами 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.