program NumberToName;
varnum: integer;
beginwriteln('Введите число от 1 до 9:');readln(num);
case num of1: writeln('Один');2: writeln('Два');3: writeln('Три');4: writeln('Четыре');5: writeln('Пять');6: writeln('Шесть');7: writeln('Семь');8: writeln('Восемь');9: writeln('Девять');elsewriteln('Вы ввели неверное число');end;
end.
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.