Однажды в арктике за круглым столом оказалось 5 родом из москвы, санкт-петербурга, новгорода, перми и томска: юра, толя, алёша, коля и витя. москвич сидел между томичём и витей, санкт-петербуржец между юрой и толей, а напротивнего сидели пермяк и алёша. коля никогда не был в санкт-петербурге, юра не бывал в москве и томске, а томич с толей регулярно переписываются. определите в каком городе живёт каждый из .

юра из новгородатоля из москвы

алеша из томска

коля из перми

витя из санкт-петербурга 

// pascalabc.net 3.2, сборка 1325 от 19.10.2016 begin   var s: = new stack< integer> ;   var n: integer;   writeln('вводите числа, ноль завершает ввод');   repeat       read(n);       if n< > 0 then s.push(n);   until n=0;   for var i: =1 to s.count do begin       write(s.peek,' ');       s.pop       end;   writeln end. пример вводите числа, ноль завершает ввод 3 6 9 12 5 11 -4 8 0 2 9 8 -4 11 5 12 9 6 3

program raf105;

var

  dr: real;

  day: integer;

  a,b: boolean;

begin

  dr: = 0.75;

  while not(a) or not(b) do

  begin

    day: = day+1;

    dr: = dr + dr/100*160;

    dr: = dr - 0.6;

    if day = 6

      then begin

        writeln('а) через 6 дней в установке будет ',dr: 0: 2,' т. дрожжей');

        a: = true;

      end;

    if (dr > = 9) and not(b)

      then begin

        writeln('б) через ',day,' суток масса дрожжей достигнет порога 9 т.');

        b: = true;

      end;

  end;

end.

pascalabc 3.4.2