Напишите код программ который будет вычислять примерестр фигуры

Program Perimetr;var   P, a,b,c:integer;Begin  writeln('Введите длины сторон треугольника ');  write('a='); readln(a);  write('b='); readln(b);  write('c='); readln(c);    P:= a+b+c;    writeln('Периметр треугольника = ', P);end.