Ввести число от 5 до 9. Вывести его значение словом. Turbo Pascal

program zz1;

var a:integer; / / вводим переменные целого типа

begin

write (' введите заданное число от 5 до 9 '); / / вводим с клавиатуры число

read (a);

if a = 5 then write (' Пять '); / / проверяем, если введенное число равно 5, то выводим один ответ

if a = 6 then write (' Шесть '); / / проверяем, если введенное число равно 6, то выводим другой ответ

if a = 7 then write (' Семь '); / / проверяем, если введенное число равно 7, то выводим третий ответ

if a = 8 then write (' Восемь ');

if a = 9 then write (' Девять ');

end.