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

program zz1;

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

begin

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

read (a);

if a = 5 then write (' Пять ');

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 (' Пять ');

6:write (' Шесть ');

7:write (' Семь ');

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

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

end;

end.