Составить программу в паскале на нахождение периметра треугольника p=: a+b+c

Prougram;
var a,b,c: integer;
Begin
writeln ('Vvedite a');
read (a);
writeln ('Vvedite b');
read (b);
writeln ('Vvedite c');
read (c);
d:=a+b+c
writeln ('d'=',d');
End.