Question

Скажите пожалуйста где ошибка? Нужно найти периметр треугольника в 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.
  

Answer 1

попробуй так:
var P,a,b,c: integer;
readln(a);
readln(b);
readln(c);
P:= a+b+c;
writeln(' P=',P);
end.