Найти периметр треугольника: а=2, в=3, с=4 на языке паскаля написать программу решения

Program perimetr;
var A,B,C,P:integer;
begin   
    A:=2;   
    B:=3;   
    C:=4;   
    P:=A+B+C;   
writeln('Периметр треугольника равен =  ', P);
end.