Информатика 10 класс! проходим case

2. Дано число К. Вывести фразу "Мы выучили К правил" (1 - "1 правило", 12 - "12 правил", 22 - "22 правила").

Var k:integer;

begin

read (k) ;

case k of

*Все цифры, оканчивающиеся на 1*: write ('Мы выучили ', k,' правило') ;

*Все цифры, оканчивающиеся на 2, 3, 4*: write ('Мы выучили ', k,' правила') ;

else write ('Мы выучили ', k,' правил') ;

end;

end.

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.