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

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