Задача в pascal abc net: Вычислить произведение с помощью цикла “До(repeat)” (3+f)*(6+f)*(9+f)*…*(27+f)

Вопрос пользователя:

Задача в pascal abc net:

Вычислить произведение с помощью цикла “До(repeat)”

(3+f)*(6+f)*(9+f)*…*(27+f)

Илюха отвечает:

var s,i,f:integer;

Begin

  read(f);

  s:=1;

  repeat

    i:=i+3;

    s:=s*(i+f);

  until i>=27;

  writeln(s);

End.