Даны три стороны треугольника. Найдите его периметр. Составьте блок-схему и программу для паскаль.

program program1;vara, b, c, p: real;beginwrite('Введите длины сторон треугольника: ');readln(a, b, c);p := a + b + c;writeln('Периметр треугольника со сторонами ', a, ', ', b, ' и ', c, ' равен ', p);end.