// задача 1
var n,k: integer;
begin
  n:=1;
  k:=1;
  repeat
    n:=n+11;
    k:=k+1;
  until n mod 2009 = 0;
  writeln(k);
end.
// задача 3
var a: array[1..15] of integer;
    i,n,s: integer;
begin
  randomize;
  write('массив грузов: ');
  for i:=1 to 15 do
  begin
    a[i]:=random(1,50);
    write(a[i],' ');
  end;
  writeln;
  n:=0; s:=0;
  for i:=1 to 15 do
  begin
    if s+a[i]>50 then
    begin
      s:=a[i];
      n:=n+1;
    end  
    else s:=s+a[i];
  end;
  n:=n+1;
  writeln('всего рейсов: ',n);
end.
// задача 4
var a: array[1..4] of integer;
    i,k: integer;
begin
  for i:=1 to 4 do a[i]:=15;
  randomize;
  k:=0;
  while true do
  begin
    i:=random(1,4);
    k:=k+1;
    if a[i]-1 = 0 then break
    else a[i]:=a[i]-1;
  end;
  writeln('количество спичек: ',k);
end.
// задача 5
var a: array[1..5,1..5] of integer;
    b: array[1..5] of integer;
    i,j,k: integer;
begin
  for i:=1 to 5 do b[i]:=i;
  for i:=1 to 5 do
  begin
    for j:=1 to 5 do
    begin
      a[i,j]:=b[j];
      write(a[i,j]:3);
    end;
    writeln;
    k:=b[1];
    for j:=1 to 4 do b[j]:=b[j+1];
    b[5]:=k;
  end;
end.