Синфой
c{5}: =random(20)-11
b{z}: =random(45)+10
a{k}: =random(28)-7
надо указать числовой диапазон

{даны n натуральных чисел a1...a2...an.Определить и вывести количество членов последовательностикратных 3 и не кратных 5}
program zadacha;
vara: array[1..255] of byte;i,n,k: integer;
beginwrite('введите n от 1 до 100 - количество чисел ');read(n);for i:=1 to n do begina[i]:=random(255);write(a[i]:6);end;
k:=0;writeln();for i:=1 to n do begin    if (a[i] mod 3 = 0) and (a[i] mod 5 <> 0) then   begin k:=k+1;   write(a[i]:6);   end;end;writeln();writeln('в массиве ', k, ' элементов, кратных 3 и не кратных 5');end.

Допустим, что первый болельщик был прав в том, что Наташа займет 1 место. Следовательно, она не может занять второе место, из чего в свою очередь следует, что третий болельщик не был прав в том, что Наташа займет второе место, значит, он был прав в том, что Рита займет третье место. Аналогично, Рита не может занять четвертое место, так как предположительно она на третьем, значит второй болельщик был прав в том, что Люда займет второе место. Остается Маша - четвертое место. Все болельщики правы лишь в одном из своих прогнозов, условие выполняется. Следовательно ответ: 1 место - Наташа, 2 место - Люда, 3 место - Рита и 4 место - Маша