Составьте программу, которая преобразует заданную пословицу в согласованное предложение, используя оператор «Выбор» - Pascal ABC

Формулировка задачи:

Составьте программу, которая преобразует заданную пословицу в согласованное предложение, используя оператор «Выбор».

Составьте программу, которая преобразует пословицу «За двумя зайцами погонишься, ни одного не поймаешь» в зависимости от количества зайцев в согласованное предложение и выводит результат в виде «Количество зайцев с соответствующим окончанием» «продолжение пословицы». Например, «За 128-ю зайцами погонишься, ни одного не поймаешь». Рассмотрите задачу для множества натуральных чисел от 1 до 100.

Решение задачи: «Составьте программу, которая преобразует заданную пословицу в согласованное предложение, используя оператор «Выбор»»

Листинг программы

var n:byte;
    s,s1:string;
begin
repeat
write('Введите количество зайцев от 2 до 100 n=');
readln(n);
until n in [2..100];
case n mod 100 of
10..20,30,50,60,70,80:s1:='-ю';
40,90:s1:='-а';
else
 case n mod 10 of
 1:s1:='-им';
 2..4:s1:='-мя';
 0,5..9:s1:='-ю';
 end;
end;
s:='За '+inttostr(n)+s1+' зайцами погонишься, ни одного не поймаешь';
write(s);
end.

Объяснение кода листинга программы

В программе используется оператор Выбор (case).
Переменная n представляет собой количество зайцев, которое вводит пользователь.
Программа запрашивает у пользователя ввод количества зайцев, пока он не введет число от 2 до 100.
В зависимости от остатка от деления n на 100, устанавливается значение переменной s1, которое будет использоваться в дальнейшем.
Если n равно 10, 20, 30, 50, 60, 70 или 80, то s1 принимает значение -ю.
Если n равно 40 или 90, то s1 принимает значение -а.
В остальных случаях, в зависимости от остатка от деления n на 10, устанавливается значение s1 равным -им, -мя или -ю.
Затем формируется строка s, которая содержит пословицу, в которую встроено значение переменной n и s1.
И, наконец, полученная строка выводится на экран.