Для каждой введенной цифры (0-9) вывести соответствующее ей название на английском языке (0 - zero, 1 - one, 2 – two,…). Замечание! В разделе описания переменных, используйте тип переменной byte, что означает 8-ми битовое целое число без знака от 0 до 255.
program qazwsx;
var x:integer;
begin
writeln('введите число');
readln (x);
case x of
0:writeln ('Zero');
1:writeln ('One');
2:writeln ('Two');
3:writeln ('Three');
4:writeln ('Four');
5:writeln ('Five');
6:writeln ('Six');
7:writeln ('Seven');
8:writeln ('Eight');
9:writeln ('Nine');
end;
end.
Объяснение: