Program Number2;Var a,b : integer; Procedure Print(i: integer; s: string);begin for var j:=1 to i do writeln(s)end;Begin read(b, a); case a of 0 : Print(b, 'zero'); 1 : Print(b, 'one'); 2 : Print(b, 'two'); 3 : Print(b, 'three'); 4 : Print(b, 'four'); 5 : Print(b, 'five'); 6 : Print(b, 'six'); 7 : Print(b, 'seven'); 8 : Print(b, 'eight'); 9 : Print(b, 'nine');elsewriteln ('Число не входит в указанный отрезок!')end;End.