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

Program n1;Uses CRT;Var k,i: integer;begink:=1;For i:=1 to 10 do k:=k*i;writeln(k);end.

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

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

- начало

- K:=1;

i:=1 to n

k:=k*1

k

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