Program Case 4

program kategori_umur;

uses crt;

var umur:integer;

kategori:string;

begin

        clrscr;

        write('masukkan umur: ');

        readln(umur);

case umur of

0..5: kategori :='balita';

6..12: kategori :='anak-anak';

13..17:kategori :='abg';

18..24:kategori :='dewasa muda';

25..50:kategori :='dewasa';

else kategori :='manula';

end;

writeln('anda termasuk kategori usia: ',kategori);

readln;

end.