2)

begin

   var N:=1169;

   var money:=0;

   var time:=0;

   var price:=ReadLnInteger('Введите стоимость билета: ') * 100;

   repeat

       time += 30;

       money += N;

   until money >= price;

   writeln('Для сбора ', price div 100, ' рубля(ей) необходимо ', time div (60*24), ' суток ', time div 60 mod 24, ' часов');

   writeln(time div 60);

end.

3)

function SumOfNumDigits(num: integer): integer;

begin

   while num > 0 do

   begin

       Result += num mod 10;

       num:=num div 10;

   end;

end;

var a, b, c, x: integer;

begin

   a:=567;

   b:=389;

   c:=185;

   if SumOfNumDigits(a) > SumOfNumDigits(b) then

       x:=a

   else

       x:=b;

   if SumOfNumDigits(x) > SumOfNumDigits(c) then

       writeln(x)

   else

       writeln(c);

end.