kondisi pascal menggunakan case of

uses crt;
var
i:integer;
angka : string;
begin
clrscr;
write ('masukan angka [1..10] ? ');
readln(i);
case i of
1:angka:='satu';
2:angka:='dua' ;
3:angka:='tiga' ;
4:angka:='empat' ;
5:angka:='lima'   ;
6:angka:='enam'    ;
7:angka:='tujuh'    ;
8:angka:='delapan'   ;
9:angka:='sembilan'   ;
10:angka:='sepuluh'    ;
else angka:='invalid';
end;
writeln('angka yang anda masukkan adalah angka ',angka);
readln;
end.