Задача в pascal abc net: Вычислить произведение с помощью цикла...

Question

Задача в pascal abc net:

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

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

Answer 1

var s,i,f:integer;

Begin

  read(f);

  s:=1;

  repeat

    i:=i+3;

    s:=s*(i+f);

  until i>=27;

  writeln(s);

End.