Народ любую программу на уровне 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.                                                                   

алгоритм далек от совершенства, медленный, но считает правильно. Паскаль

Объяснение:

var

 col: integer;

 i, k: longint;

 del: boolean;

function prost(a: longint): boolean;

var c: integer;

begin

 prost := a >= 2;

 for c := 2 to trunc(sqrt(a)) do if a mod c = 0 then prost := false;

end;

begin

 i := 2;

 col := 1;

 repeat

   del := (i mod 2 = 0) or (i mod 3 = 0) or (i mod 5 = 0);

   for k := 6 to i div 2 do if (prost(k) = true) and (i mod k = 0) then del := false;

   if del then

   begin

    Write(i, ', ');

    inc(col);

   end;

   inc(i);

 until col > 1000;

end.

program v5;

begin

writeln('█▀█░░█░█░█▀█░█▀█░█░░░█░█▀▄▀█');

writeln('█░▄░░█▀█░█░█░█▀▄░█▀█░█░█░█░█');

writeln('▀▀▀░░▀░▀░▀▀▀░▀▀▀░▀▀▀░▀░▀░░░▀');

writeln('░░░░░░░░░░░░░░░░░░░░░░░░░░░░');

writeln('░█▀▀░█▀█░░█▀█░░█▀█░█▀▄▀█░░█░');

writeln('░█░░░█░█░░█░█░░█░█░█░█░█░░▀░');

writeln('░▀░░░▀▀▀░█▀▀▀█░▀▀▀░▀░░░▀░░▀░');

writeln('░░░░░░░░░░░░░░░░░░░░░░░░░░░░');

writeln('░░░░░░░░░░░░▄██▄░░░░░░░░░░░░');

writeln('░░░░░░░░░░▄██████▄░░░░░░░░░░');

writeln('░░░░░░░░▄████░█████▄░░░░░░░░');

writeln('░░░░░░▄█████████░████░░░░░░░');

writeln('░░░░░░░░░▄██░█████▄░░░░░░░░░');

writeln('░░░░░░░▄████████████▄░░░░░░░');

writeln('░░░░░▄███░███████░████▄░░░░░');

writeln('░░░▄████████░███████████▄░░░');

writeln('░░░░░░▄█████████░████▄░░░░░░');

writeln('░░░░▄████░█████████░███▄░░░░');

writeln('░░▄██████████░███████████▄░░');

writeln('▄█████░█████████████░██████▄');

writeln('▀▀▀▀▀▀▀▀▀▀▀▀████▀▀▀▀▀▀▀▀▀▀▀▀');

writeln('░░░░░░░░░░░░████░░░░░░░░░░░░');

writeln('░░░░░░░░░░░░░░░░░░░░░░░░░░░░');

writeln('░░█▀▀▀█░█▀▀▀▀█░█▀▀▀█░█▀▀▀▀█░');

writeln('░░█▄█░█░█░██░█░█▄█░█░█░██░█░');

writeln('░░█░▄██░█░██░█░█░▄██░█░██░█░');

writeln('░░█▄▄▄█░█▄▄▄▄█░█▄▄▄█░█▄▄▄▄█░');

end.