Запишите общий вид оператора выбора.

case of : : ... : else end;

Program Number1; Var a : integer; Begin writeln ('Введите цифру ') ; readln (a) ; if (a9) then writeln ('Это число не является цифрой') else case a of 0 : writeln ('ноль') ; 1 : writeln ('один') ; 2 : writeln ('два') ; 3 : writeln ('три') ; 4 : writeln ('четыре') ; end; readln; End.