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

9*1=918*2=1854*3=54216*4=2161080*5=10806480*6=648045360*7=45360362880*8=3628803265920*9=326592032659200*10=32659200так какP:=P*i; (сначала считается P)Writeln(P, '*',i,'=',P) (а затем выводится его новое значение )

9 * 1 = 918 * 2 = 1854 * 3 = 54и т.д.как я понимаю у тебя неправильно написана программанапишисорри люблю while XDP:=9;i = 1;while (i <> 10) dobeginWriteln(P, '*',i,'=',P*i)i := i + 1;end;