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

    var i, s : integer;

begin

  s: =0;

  for i: = 10 to 99 do

      if i mod 5 = 0 then s: =s+i;

  writeln('сумма двузначных чисел, кратных 5 =', s);

  readln

end.

var a: integer; beginreadln(a); write (a div 10); end.