Срочно по ИНФОРМАТИКЕ

Помогите решить пожалуйста
Сколько раз будет напечатано слово 'студент'?
Program pr5;
Var i:integer;
Begin i:=1; repeat writeln('студент'); i:=i+1 until in then goto 9; p:=p*d; d:=d+1; goto 1;9:end
Чему будут равны по окончанию работы программы p и d?