Нужна блок схема к следующим алгоритмам на паскаль школьная работа 4. var i: longint; begin for i: =100 to 999 do if (i mod 7)=0 then writeln(i); end.5.var i, s: longint; begin s: =0; for i: =100 to 999 do if (i mod 13)=0 then s: =s+i; writeln(s); end.6. var i, k: longint; begin k: =2; for i: =1 to 10 do begin writeln('2 в степени ', i, '=', k); k: =k*2; end; end.

Var a: array [1..20] of integer; mult: longint; i: integer; begin       randomize;       mult : = 1;       for i : = 1 to 20 do       begin           a[i] : = random(20) - 10;           if a[i] < 0 then mult : = mult * a[i];       end;       for i : = 1 to 20 do           write(a[i], ' ');       writeln;       writeln(mult); end.

Uses crt; procedure prost(a: longint; var f: boolean); var i: longint; begin if a< 3 then f: =false else   begin   f: =true;   for i: =2 to round(sqrt(a)) do   if a mod i=0 then f: =false;   end; end; var   a,b,i,k: longint;       f: boolean; begin clrscr; repeat writeln('введите диапазон натуральных чисел   a< b: '); readln(a,b); until (a> =0)and(b> a); k: =0; for i: =a to b do   begin   prost(i,f);   if f then     begin     write(i,' ');     k: =1;     end;   end; if k=0 then writeln('простых чисел в интервале ',a,' ',b,' нет! '); readln end.