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

*****************C case*****************
Var
    a:integer;
Begin 
   Write(Введите число от 5 до 9: ); readln(a); 
     case a of 
     5:writeln(Вы ввели число "пять");
     6:writeln(Вы ввели число "шесть");
     7:writeln(Вы ввели число "семь");
     8:writeln(Вы ввели число "восемь");
     9:writeln(Вы ввели число "девять")
   end;

readln
End.


*****************С if*****************
Var
    a:integer;
Begin
  Write(Введите число от 5 до 9: ); readln(a);
if a=5 then writeln(Вы ввели число "пять");
if a=6 then writeln(Вы ввели число "шесть");
if a=7 then writeln(Вы ввели число "семь");
if a=8 then writeln(Вы ввели число "восемь");
if a=9 then writeln(Вы ввели число "девять");

readln
End.