Скажите пожалуйста где ошибка? Нужно найти периметр треугольника в Pascal ABC.
Program Perimetr_treug;
   var a, b, c, P: real;
   begin
      writeln ('Введите стороны треугольника);
      readln (a, b, c);
      P:=a+b+c;
      writeln ('P= ', P);
   end.