Вот держи! Я даже сделал проверку что сторона не меньше нуля.
Var a,b,c,p :real;
Begin
Write('Введите длинну стороны а >>> ');
Readln(a);
Write('Введите длинну стороны b >>> ');
Readln(b);
Write('Введите длинну стороны c >>> ');
Readln(c);
Writeln('--------------------------------------------------------------');
If (a>0) and (b>0) and (c>0) then
Begin
P:=a+b+c;
Write('Периметр треугольника со сторонами ',a,' , ',b,' , ',c,' равен >>> ',p);
End
Else
Begin
Writeln('Ошибка!!!');
Write('Длинна сторон должна быть больше нуля');
End;
End.