Как известно, автомобиль, изобретенный винтиком и шпунтиком, работает не на бензине, а на газировке разных сортов. на одном литре лимонада он проезжает 120 км, на одном литре кока-колы — 100 км, на одном литре фанты — 150 км. цена одного литра фанты в цветочном городе — 3 монеты за литр, лимонада — 1 монета за литр, кока-колы — 2 монеты за литр. готовясь к путешествию, незнайка закупил 10 литров кока-колы, 5 литров лимонада и 10 литров фанты. винтик и шпунтик вместе купили 10 литров лимонада и 10 литров фанты. торопыжка — 5 литров фанты, 10 — кока-колы и 10 — лимонада. поэт цветик — 20 литров фанты.построить электронную таблицу, из которой будет видно: сколько всего литров горючего купил каждый из человечков, сколько ему это стоило и какое расстояние он может проехать на этом горючем; сколько всего было куплено горючего каждого вида всеми человечками вместе, сколько это стоило и какое расстояние можно проехать на этом горючем; сколько всего горючего всех видов было куплено всеми человечками и сколько оно стоило.

Program n1; var m, n: integer; ms: array[1..9] of string; md: array[1..9] of string; m1: array[11..19] of string; me: array[1..9] of string; flag: boolean; begin flag : = false; ms[1] : = 'сто'; ms[2] : = 'двести'; ms[3] : = 'триста'; ms[4] : = 'четыреста'; ms[5] : = 'пятьсот'; ms[5] : = 'пятьсот'; ms[6] : = 'шестьсот'; ms[7] : = 'семьсот'; ms[8] : = 'восемьсот'; ms[9] : = 'девятьсот'; md[1] : = 'десять'; md[2] : = 'двадцать'; md[3] : = 'тридцать'; md[4] : = 'сорок'; md[5] : = 'пятьдесят'; md[6] : = 'шестьдесят'; md[7] : = 'семьдесят'; md[8] : = 'восемьдесят'; md[9] : = 'девяносто'; m1[11] : = 'одиннадцать'; m1[12] : = 'двенадцать'; m1[13] : = 'тринадцать'; m1[14] : = 'четырнадцать'; m1[15] : = 'пятнадцать'; m1[16] : = 'шестнадцать'; m1[17] : = 'семнадцать'; m1[18] : = 'восемнадцать'; m1[19] : = 'девятнадцать'; me[1] : = 'один'; me[2] : = 'два'; me[3] : = 'три'; me[4] : = 'четыре'; me[5] : = 'пять'; me[6] : = 'шесть'; me[7] : = 'семь'; me[8] : = 'восемь'; me[9] : = 'девять'; write('введите число: '); readln(m); if (m < 1) or (m > 1000) then writeln('число не входит в заданный интервал') else if m = 1000 then writeln('одна тысяча ') else begin n : = m div 100; if n > 0 then begin write(ms[n]); flag : = true end; m : = m mod 100; if m = 0 then writeln(' ') else begin if (m > 10) and (m < 20) then begin if flag then write(' '); writeln(m1[m]) end else if m > 0 then begin n : = m mod 10; m : = m div 10; if m > 0 then begin if flag then write(' ') else flag : = true; write(md[m]) end; if n < > 0 then begin if flag then write(' '); write(me[n]); end end end end end.

{-} const ch_1: array[1..19] of string = ('один', 'два', 'три', 'четыре', 'пять', 'шесть','семь', 'восемь', 'девять', 'десять', 'одиннадцать', 'двенадцать', 'тринадцать','четырнадцать', 'пятнадцать', 'шестнадцать', 'семнадцать', 'восемнадцать',  'девятнадцать'); ch_2: array [2..9] of string = ('двадцать', 'тридцать', 'сорок', 'пятьдесят',  'шестьдесят', 'семьдесят', 'восемьдесят', 'девяносто');   ch_3: array [1..9] of string = ('сто', 'двести', 'триста', 'четыреста', 'пятьсот', 'шестьсот',  'семьсот', 'восемьсот', 'девятьсот');   var n : 0..1000; begin repeat write ('введите натуральное число, меньшее 1000: '); readln (n); until n in [1..999]; if n in [100..999] then write (ch_3[n div 100], ' ');       if (n mod 100) in [20..99] then        begin            write (ch_2[(n mod 100)div 10], ' ');             if (n mod 10) < > 0 then write (ch_1[n mod 10]);         end        else        if (n mod 100) < > 0 then write (ch_1[n mod 100]);   end.