Народ любую программу на уровне 8-9 класса.paskal abc

Для выбора водящего в детской игре n человек становятся в круг, после чего произносится считалка. на первом слове считалки указывается на первого человека в кругу, на втором слове – на второго человека и т. д. после n-го человека снова идёт первый человек (все люди в кругу пронумерованы числами от 1 до n, круг зацикливается, после человека с номером n идёт человек с номером 1). всего в считалке m слов. определите, на какого человека придётся последнее слово считалки. программа получает на вход два целых положительных числа. первое число n – количество людей в кругу. второе число m – количество слов в считалке. оба числа не превосходят 109 . программа должна вывести одно целое число от 1 до n – номер человека в кругу на которого придётся последнее слово считалки. var n,k,f,m: longint; beginwriteln ('введите кол-во людей в игре: '); read(n); writeln('введите кол-во слов: '); read(m); k: =m div n ; f: =m-k*n; if f=0 then write ('номер человека, на которого придется последнее слово  =====> >   ',n)  elsewrite('номер человека, на которого придется последнее слово  =====> >   ',f); end.                                                                   

Const n=15; var    a: array[1..n] of integer;   s,i: integer; begin   s: =0;   for i: =1 to n do begin     a[i]: =random(-50,50);     write (a[i]: 4);     if a[i] mod 2 =0 then s: =s+a[i];   end;   writeln;   writeln ('s = ',s); end. 37   -1   31 -49   50   14 -49   3 -35   21   33   41   13 -16 -42 s = 6