Алгоритм с повторение (циклический) по сказке курочка ряба. 40 !

Elektron raqamli imzo — Elektron hujjatdagi mazkur elektron hujjat axborotini elektron raqamli imzoning yopiq kalitidan foydalangan holda maxsus oʻzgartirish natijasida hosil qilingan hamda elektron raqamli imzoning ochiq kaliti yordamida elektron hujjatdagi axborotda xatolik yoʻqligini aniqlash va elektron raqamli imzo yopiq kalitining egasini identifikatsiya qilish imkoniyatini beradigan imzo. (qonun)Qonunda talab etilgan shartlarga rioya etilgan taqdirda elektron raqamli imzo qogʻoz hujjatga shaxsan qoʻyilgan imzo bilan bir xil ahamiyatga egadir. Elektron maʼlumotlarni kriptografik oʻzgartirish natijasida hosil qilingan belgilar ketma-ketligi. Elektron raqamli imzo maʼlumotlar blokiga qoʻshib qoʻyiladi va blokni qabul qiluvchiga, manbani va maʼlumotlarning butunligini tekshirish hamda soxtalashtirishdan muhofazalanish imkonini beradi. Hozirgi kunga kelib, ayrim mamlakatlar qonunchilik yoʻli bilan raqamli imzodan foydalanishni layoqatliligini qonunlashtirib qoʻyganlar. Elektron raqamli imzo kalitlari sertifikatlari roʻyxatga olish markazlari tomonidan beriladi.

Программа на языке Паскаль.

const N=30;
var i, s0, k, a: integer;
      b: array [1..N] of integer;
begin
      readln(a);
      s0:=0;
      k:=0;
      randomize;
      for i:=1 to N do
      begin b[i]:=random(20001)-10001; {чтобы диапазон случайных чисел был от -10000 до 10000}
                if (b[i]<0) then s0:=s0+b[i];
                if (b[i]>0) and (b[i]<=a) then inc(k);
      end;
      if (s0<>0) then writeln(s0, ' - сумма отрицательных чисел')
      else writeln('отрицательных чисел нет');
      if (k<>0) then writeln(k, ' - количество положительных чисел, не превосходящих числа А')
      else writeln('положительных чисел не превосходящих числа А, нет');
readln;
end.