Врезультате реформы системы транспорта в городе были введены новые билеты на метро на 1, 5, 10, 15 и 20 поездок. в таблице ниже стоимости билетов: количество поездок цена билета 1 -35 5 -130 10 -170 15 -240 20 -300 мише нужно совершить за месяц 44 поездки. какие билеты и в каком количестве ему нужно приобрести для этого? он может купить билетов на большее число поездок, если это будет выгоднее. в ответе запишите 5 чисел через пробел: количество билетов на 1, 5, 10, 15, 20 поездок, которое должен купить миша. например, ответ «3 0 1 0 2» означает, что миша должен купить 3 билета на 1 поездку, 1 билет на 10 поездок и 2 билета на 20 поездок.

Там все просто - пише и ответ : : а выписывать тебе - сложно 

Var a: array[1..100,1..100] of integer;                                     n,m,i,j,min,kmin: integer; begin readln(n,m); min: =10000; kmin: =0;       for i: =1 to n do begin               writeln();                   for j: =1 to m do begin                            a[i,j]: =random(50);                   write(a[i,j],'   ');                           if min = a[i,j] then                               kmin: =kmin+1                            else if min > a[i,j] then begin                                           kmin: =1; min: =a[i,j];                               end;                     end;       end; writeln(); write(min,' ',kmin); readln(); end.

var a,b,c: integer; beginreadln(a,b,c); if (a> b) and (a> c) and (b> c) then writeln('c=',c,'b=',b,'a=',a) elseif (b> a) and (b> c) and (a> c) then writeln('c=',c,'a=',a,'b=',b) elseif (c> a) and (c> b) and (b> a) then writeln('a=',a,'b=',b,'c=',c) elseif (a> b) and (a> c) and (c> b) then writeln('b=',b,'c=',c,'a=',a) elseif (b> a) and (b> c) and (c> a) then writeln('a=',a,'c=',c,'b=',b) elseif (c> a) and (c> b) and (a> b) then writeln('b=',b,'a=',a,'c=',c) elsereadln; end.