library robot;

type
   fVect=record
     x,y:single;
   end;

   Robo=record
     Pos:array[0..2]of fVect;
     Spd:array[0..2]of fVect;
     Frc:array[0..2]of single;
   end;

procedure RTICK(var R:Robo); StdCall;
begin
   //Основной код
end;

exports RTICK;

begin
end.

for x:=0 to длина_карты do
   for y:=0 to высота_карты do
     draw_element(map[x,y],x*ширина_блока,y*высота_блока);

var i, x, y, coal, mt:word;
begin
    coal:=51;
    while coal>0 do
    begin
      mt:=random(10)+5; //Объём
      if mt>coal then mt:=coal;
      repeat //Ищем точку, отдалённую от других залежей
        x:=random(32);
        y:=random(32);
      until nearest_block(2); //Отдельная функция, ищет блоки указанного типа в радиусе нескольких блоков
      for i:=1 to mt do
      begin
        map[x,y]:=2;
        case random(4) of //Выбираем направление движения
        0: inc(x);
        1: dec(x);
        2: inc(y);
        3: dec(y);
        end; //case
      end; //for
      dec(coal,mt);
    end;  //while
end;

var data:TCorpse;
   r:extended;
begin
   r:=analyse_corpse(data);
   writeln('Этот труп стоит примерно ',r:0:2,' у.е.');
   delete_corpse(data);
end.

var m:byte;
begin
      write('Число месяца: ');
      readln(m); //Считываем число месяца
      while m>7 do m:=m-7; //Уменьшаем до интервала 1..7
      case m of
      1: writeln('Суббота');
      2: writeln('Воскресенье');
      3: writeln('Понедельник');
      4: writeln('Вторник');
      5: writeln('Среда');
      6: writeln('Четверг');
      7: writeln('Пятница');
      end;
end;