решите задачу максимально простым на

Условие:

Широко известный бывший стилист Сергей З. увлекся бонистикой — он собирает банкноты. Особенно
ему нравятся крупные купюры. Поэтому он просит выплачивать ему гонорары только такими купюрами,
а от мелких с негодованием отказывается.
К сожалению, в силу различных обстоятельств Сергею не удалось окончить среднюю школу, поэтому он
никак не может понять, какая из купюр его последнего гонорара самая крупная. Звезда в шоке!
Сергею, напишите программу, которая определяет порядковый номер самой крупной купюры
в его гонораре из трех купюр.

Формат входных данных:
с
клавиатуры вводятся список из трех целых чисел, равных номиналам российских купюр. Числа не
превосходят 5000. Все числа разные.

Формат выходных данных:
Вывести на экран порядковый номер (1, 2 или 3) самой крупной купюры в гонораре Сергея.
​

program xxx; var i, j, k, n, p, s : integer;       a : array [1..20] of integer; begin  write ('введите количество инверсий -');   readln(k);   write ('введите количество ламп -');   readln(n);   for i: =1 to n do      a[i]: =0;   for i: =1 to k do      begin          write ('введите инверсию p-');           readln(p);           j: =p;           while j< =n do              begin                  if a[j]=0 then a[j]: =1 else a[j]: =0;                   j: =j+p              end      end;   s: =0;   for i: =1 to n do      if a[i]=1 then s: =s+1;   write ('ламп горит -', s);   readlnend.

var a: array[1..100] of integer;

begin

  randomize; {чтоб рандом был разный для каждого запуска програмы}

  for i: = 1 to 100 do

      if i mod 2 =0 then a[i] : = 2*random(100)+1; {формула нечетного числа}

      else a[i]: =2*random(100);

end.

есличто непонятно - пиши в сообщения, растолкую

, не принимает вордовские таблицы.

смотри вложение-принтскрин.