СРОЧНО ДАМ 35 БАЛЛОВ!!!Найдите ошибки и исправьте их (5 ошибок)Program Pr3

Program Pr3

Var i: intereg;


Begin


P=1;


For i:=1 to 5 do


P:=P*i;


Write ('P=', P);


End

Ответ:

Program Pr3;

Var i,P: integer;

Begin

P:=1;

For i:=1 to 5 do

P:=P*i;

Write ('P=', P);

End.

Объяснение:

Program Pr3; - не было разделителя операторов (точки с запятой)

Var i,P: integer; - не было объявления второй переменной P и был неверно написан тип данных

Begin

P:=1; - неверный оператор присваивания (не хватало двоеточия)

For i:=1 to 5 do

P:=P*i;

Write ('P=', P);

End. - не было точки в конце программы