Нарисовать блок схему нахождения произведения чисел 1*2**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

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