Написал программу нахождения периметра треугольника

var

a, b, c: real;

p, s: real;

begin

Write('Введите 3 стороны треугольника: ');

readln(a, b, c);

p := a + b + c;

writeln('p=', p);