Ответ:
var N,k:integer;
s:string;
BEGIN
readln(N,k);
case k of
0: s:=’zero’;
1: s:=’one’;
2: s:=’two’;
3: s:=’three’;
4: s:=’four’;
5: s:=’five’;
6: s:=’six’;
7: s:=’seven’;
8: s:=’eight’;
9: s:=’nine’;
end;
for k:=1 to N do
writeln(s);
end.