Задача про математика Иосифа Флавия.

program schitalochka;
uses crt;
type point=^list;
list = record
data:integer;
next:point;
end;
var a,head:point;
t,n,k:integer;
 
procedure createlist(n:integer);
var i:integer;
begin
for i:=n downto 1 do
begin
new(a);
a^.data:=i;
a^.next:=head;
head:=a;
end;
while a^.next<>nil do a:=a^.next;
 
a^.next:=head;
head:=a^.next;
end;
 
procedure delete_el(k:integer);
var buf:point;
i:integer;
begin
while a^.data<>a^.next^.data do
begin
for i:=1 to k-2 do a:=a^.next;
buf:=a^.next;
{write(buf^.data:3);}
a^.next:=buf^.next;
dispose(buf);
a:=a^.next;
end;
end;
 
begin
clrscr;
createlist(5);
a:=head;
{while a<>nil do
begin
write(a^.data:3);
a:=a^.next;
inc(t);
if t=1000 then break;
end;
a:=head;}
writeln;
delete_el(2);
writeln;
writeln(a^.data);
readln;
end.