создайте программу которая запрашивает однозначное число и сообщает его название
Однозначное число: 8
Это число восемь
на паскале плиз

Program v1;Var  n: integer; Begin  Write ('Введите однозначное число: ');  Readln(n);  Case n of  1: Write ('Единица'); 2: Write ('Два'); 3: Write ('Три'); 4: Write ('Четыри'); 5: Write ('Пять'); 6: Write ('Шесть'); 7: Write ('Семь'); 8: Write ('Восемь'); 9: Write ('Девять')   else Write ('Вы ввели не однозначное число!!!');End;End.