Program Case Of

program case_of;

uses wincrt;

var  data:char;

begin

readln (data);

case data of

'A','I','U','E','o': writeln ('HURUF BESAR VOKAL');

'a','i','u','e','o' :writeln('huruf kecil vokal');

else writeln ('bukan huruf vokal');

end;

end.

program X;

uses wincrt;

var

   a:integer;

begin

readln(a);

case a of 81..100:writeln ('A');

     76..80: writeln ('AB');

     71..75:writeln('B');

     61..70:writeln('BC');

     51..60:writeln('C');

     41..50:writeln('D');

     0..40:writeln('E');

else writeln('input nilai salah');

end;

end.