перевести программу из Паскаля в Кумир. program food ; var x:integer; y:char; begin writeln('введите возраст, пол(одной буквой)'); readln(x); readln(y); if y = 'м' then case x of 2..3: writeln('1000 калорий'); 4..8: writeln('1500 калорий'); 9..13: writeln('2000 калорий'); 14..18: writeln('2600 калорий'); 19..30: writeln('2700 калорий'); 31..50: writeln('2500 калорий'); 51..100: writeln('2300 калорий') else writeln('ошибка при вводе возраста') end else if y = 'ж' then case x of 2..3: writeln('1000 калорий'); 4..8: writeln('1500 калорий'); 9..13: writeln('1800 калорий'); 14..18: writeln('2000 калорий'); 19..30: writeln('2100 калорий'); 31..50: writeln('2000 калорий'); 51..100: writeln('1600 калорий') else writeln('ошибка при вводе возраста') end end.

Программа:

алг

нач

   цел х

   лит пол

   вывод 'Введите возраст: '

   ввод х

   вывод 'Введите пол (одной буквой): '

   ввод пол

   выбор

       при пол = 'м':

           выбор

               при х>=2 и х<4 : вывод '1000 калорий'

               при х>=4 и х<9 : вывод '1500 калорий'

               при х>=9 и х<14 : вывод '2000 калорий'

               при х>=14 и х<19 : вывод '2600 калорий'

               при х>=19 и х<31 : вывод '2700 калорий'

               при х>=31 и х<51 : вывод '2500 калорий'

               при х>=51 и х<100 : вывод '2300 калорий'

           иначе

               вывод 'Ошибка при вводе возраста'

           все

       при пол = 'ж':

           выбор

               при х>=2 и х<4 : вывод '1000 калорий'

               при х>=4 и х<9 : вывод '1500 калорий'

               при х>=9 и х<14 : вывод '1800 калорий'

               при х>=14 и х<19 : вывод '2000 калорий'

               при х>=19 и х<31 : вывод '2100 калорий'

               при х>=31 и х<51 : вывод '2000 калорий'

               при х>=51 и х<100 : вывод '1600 калорий'

           иначе

               вывод 'Ошибка при вводе возраста'

       все

   иначе

       вывод 'Ошибка при вводе пола'

   все

кон

Результат выполнения: