Напишите программу в Паскаль АВС ,которая по значению числа выводит его название(числа от 1 до 9).

Предыдущий
вопрос Следующий
вопрос

program NumberToName;

var
num: integer;

begin
writeln('Введите число от 1 до 9:');
readln(num);

case num of
1: writeln('Один');
2: writeln('Два');
3: writeln('Три');
4: writeln('Четыре');
5: writeln('Пять');
6: writeln('Шесть');
7: writeln('Семь');
8: writeln('Восемь');
9: writeln('Девять');
else
writeln('Вы ввели неверное число');
end;

end.