Нарисовать блок схему нахождения произведения чисел 1*2*3 ... * 10

Program n1;

Uses CRT;

Var k, i: integer;

begin

k:=1;

For i:=1 to 10 do

k:=k*i;

writeln (k) ;

end.

блок-схема вложена.

Записи в блоках (по порядку сверху вниз) :

- начало

- K:=1;

i:=1 to n

k:=k*1

k

ну и снизу разумеется конец программы в овале, забыла дорисовать.