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