Переменные с типом integer нельзя делить. Надо вместо integer в разделе var поставить real
У равностороннего треугольника все стороны равны, а значит Р=3а, > а=Р/3
Естественно, как указано ниже, а- вещественные число, а Р принимает только целые значения, ибо при выполнения программы компьютером возникнет ошибка.
Program Long side ;
Var a:real;
Var P:Integer;
Begin
Write ("Perimeter of the equilateral triangle") ;
Read(P)
a:=P/3;
Write("The Length Of the equilateral triangle side is equal to" a) ;
end;
end.
