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

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

uses crt; var a[1..100] of integer; i,n,count: integer; begincount: =0; read(n); for i: =1 to n do read(a[i]); if a[i]> 0 then inc(count); write(count); end.

пусть [a,b] - область и a< =b

var

a,b,x: real;

begin

readln(a,b,x);

if (a< =x) and (x< =b) then

writeln('принадлежит')

else

writeln('не принадлежит');

end.