Question

3) программа должна число 5, 3 раза умножить на число 2, которое будет каждый раз увеличиваться на 1

Answer 1

// в след раз формулируйте задания корректно, пожалуйста

var
i, ans:integer;
begin
ans:=5;
for i:= 2 to 4 do
  ans := ans * i;
Writeln(ans); 
end.

Результат:
120