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

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

  вот первая программа. вторую сейчас пишу.

program p_1; var a,b: string; i,k: integer; begin k: =0; write('введите слово '); readln(a); write('введите символ '); readln(b); for i: =1 to length(a) do begin if a[i]=b then k: =k+1; if a[i]=b then writeln(i,' '); end; if k> =1 then writeln('да, встречается ',k,' раз, на позиции указанных сверху в столбик ')else writeln('нет'); end.

var

  a: array[1..5]of integer;

  i: integer;

begin

  for i: =1 to 5 do read(a[i]);

for i: =1 to 5 do write(a[i],' ');

writeln;

for i: =1 to 5 do if a[i]> =1024 then writeln(a[i] div 1024);

writeln;

end.