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

// в след раз формулируйте задания корректно, пожалуйстаvari, ans:integer;beginans:=5;for i:= 2 to 4 do  ans := ans * i;Writeln(ans);  end.Результат:120