Составить программу по нахождению стороны равностороннего треугольника по периметру. Что я

У равностороннего треугольника все стороны одинаковы, а означает Р=3а, gt; а=Р/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.

Переменные с типом integer нельзя разделять. Надо заместо integer в разделе var поставить real