Информатика 10 ! проходим case 2. дано число к. вывести фразу «мы выучили к правил» (1 - «1 правило», 12 – «12 правил», 22- «22 правила»).

Var k:1...k; Begin Read (k); Case n of 1,21: writeln ('мы выучили'k' правило'); 2...4,23,22,24 : ('мы выучили ,k, правила'); 5...20: ('мы выучил ,k,'правил'); 22: ( ну тут уже как выше); End; End. Мы это ещё в 7-Ом проходтли End.

Var k:integer;
begin
read(k);
case k of
*Все цифры, оканчивающиеся на 1*: write('Мы выучили ',k,' правило');
*Все цифры, оканчивающиеся на 2, 3, 4*: write('Мы выучили ',k,' правила');
else write('Мы выучили ',k,' правил');
end;
end.