Нарисовать блок схему нахождения произведения чисел 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 nk: =k*1kну и снизу разумеется конец программы в овале, забыла дорисовать.