Что выведется на экран в итоге выполнения фрагмента программки (для n=3):write

Что выведется на экран в итоге исполнения куска программки (для n=3):write (39;введите целое n = 39;); readln (n); p: = 1; for i: = 1 to n do p: = p * i; write (n, 39;! = 39;,p);