Задачи на оператора выбора. Составить программу к задаче: Для целого числа k от 1…

uses crt; var r: byte; beginreadln (к); write ('Мне ', к); if r in [5… 20] then write (' лет') else case к mod 10 of 1: write (' год'); 2… 4: write (' года'); 5… 9,0: write (' лет'); elsewriteln ('error'); end; end. Через case оч хорошо все получается) или вот так по подробнее: Const st='Мне'; Var k: Byte; BEGINRepeat Write ('Введите K (от 1 до 99): '); Readln (k); until k in [1… 99]; Case k of11… 20: Writeln (st,',k,' лет'); Elsebegin Case k mod 10 of 1: Writeln (st,',k,' год'); 2… 4: Writeln (st,',k,' года'); 5… 9,0: Writeln (st,',k,' лет'); end; end; end; ReadlnEND.