Можно попробовать через оператор выбора case (условие со многими выходами) если только такой оператор есть в турбо. в обычном паскале есть.
Например:
writeln(‘Введите цифру ‘);
readln(a);
case a of
0 : writeln (‘ноль‘);
1 : writeln (‘один‘);
2 : writeln (‘два‘);
3 : writeln (‘три‘);
4 : writeln (‘четыре‘);
5 : writeln (‘пять‘);
6 : writeln (‘шесть‘);
7 : writeln (‘семь‘);
8 : writeln (‘восемь‘);
<span> 9 : writeln (‘девять‘);
</span>
<span>Информация из корзины хранится на жёстком диске.
При удалении файлов из корзины ОС система помечает сами имена файлов как удалённые, но они на жёстком диске остаються и окончательно уничтожаються если на их место размещается другой файл (поскольку данное место является свободным).</span>
8 бит - 1 байт бла бла бла бла