PAscal С клавиатуры вводится число N и цифра K. Вывести N раз словесное описание цифры...

Question

PAscal
С клавиатуры вводится число N и цифра K. Вывести N раз словесное описание цифры KK:0−zero,1−one,2−two,3−three,4−four,5−five,6−six,7−seven,8−eight,9−nine0−zero,1−one,2−two,3−three,4−four,5−five,6−six,7−seven,8−eight,9−nine.

Формат входных данных

Вводятся два целых неотрицательных числа NN и K(1≤N≤231−1;0≤K≤9)K(1≤N≤231−1;0≤K≤9).
Формат выходных данных

Вывести в строчку N раз словесное описание цифры K.
Примеры

входные данные выходные данные
5 8
eight
eight
eight
eight
eight

Answer 1

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');
else
writeln ('Число не входит в указанный отрезок!')
end;
End.