перевести программу из Паскаля в Кумир. 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 калорий'

           иначе

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

       все

   иначе

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

   все

кон

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