Вычислить периметр треугольника в паскале

Вот держи! Я даже сделал проверку что сторона не меньше нуля. 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.