Профильная информатика:
подготовка к ЕГЭ и олимпиадам

var
  p, i : integer;
begin
  p := 1; i := 4;
  while i <= 14 do begin
    p := p * (i div 4);
    i := i + 1
  end;
  write(p)
end.

#include <iostream>

void main() {
  int p = 1, i = 4;
  while (i <= 14) {
    p *= i / 4;
    i++;
  }
  std::cout << p;
}

DIM P, I AS INTEGER
P = 1 : I = 4
WHILE I <= 14
  P = P * (I \ 4)
  I = I + 1
WEND
PRINT P

p, i = 1, 4
while i <= 14 :
  p *= i // 4
  i += 1
print(p)