Что выводит на экран данный фрагмент? p: =9; for i: =1 to 10 do begin p: =p*i writeln(p, '*',i,'=',p) end;

9*1=9
18*2=18
54*3=54
216*4=216
1080*5=1080
6480*6=6480
45360*7=45360
362880*8=362880
3265920*9=3265920
32659200*10=32659200

так как
P:=P*i; (сначала считается P)
Writeln(P, '*',i,'=',P) (а затем выводится его новое значение )

9 * 1 = 9
18 * 2 = 18
54 * 3 = 54
и т.д.
как я понимаю у тебя неправильно написана программа
напиши

сорри люблю while XD

P:=9;
i = 1;
while (i <> 10) do
begin
Writeln(P, '*',i,'=',P*i)
i := i + 1;
end;