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
ну и снизу разумеется конец программы в овале, забыла дорисовать.