Case ANgka

Program Angka;
uses
    wincrt;
var
a:integer;

begin
     write('Angka (1-3) = ');readln(a);
     writeln;
     case a of
          1:write('Satu');
          2:write('Dua');
          3:write('Tiga');
     else
         write('Pilihan Salah!');
     end;
end.