турбо паскаль

[IceFlame1292]

помогите пожалуста!последнее задание в семестровой осталось сделать!
Составить программу для решения приведенного ниже задания двумя способами,используя:a)команду выбора case;б)команду if.придумать и задать входные данные так,что бы выбор состоял из 4-7 альтернатив.Ввести число от 5 до 9.Вывести его значение словом!

[Hacker19_90]

Readln(chislo);
case chislo of
    5: Writeln ('Пять');
    6: Writeln ('Шесть');
    7: Writeln ('Семь');
    8: Writeln ('Восемь');
    9: Writeln ('Девять');
end;

Ну а через if примерно так

Readln(chislo);
if chislo = 5 then writeln ('Пять')
else и т.д.

[IceFlame1292]

спасибо)))