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

Program qq;
var a, b, c, P: real;
begin
write( 'Введите значения сторон треугольника: ' );
readln(a,b,c);
Р := a+b+c;
write( 'Периметр треугольника равен: ', P);
end.