Ввести число от 5 до 9.Вывести его значение словом. Составить программку

program zz1;

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

begin

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

read(a);

if a = 5 then write( 5 );

if a = 6 then write( Шесть );

if a = 7 then write( Семь );

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

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

writeln;

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

read(a);

case a of

5:write( 5 );

6:write( 6 );

7:write( Семь );

8:write( Восемь );

9:write( Девять );

end;

end.