YAŞINA GÖRE SENİ DEĞERLENDİREN PROGRAM

uses crt;
var
     yas:integer;
begin
  clrscr;
  repeat
     write('yasn gir:'); readln(yas);
  until yas>=0;
  case yas of
       0..3 :writeln('BEBEKSiNiZ');
       4..15:writeln('COCUKSUNUZ');
      16..25:writeln('GENCSiNiZ');
      26..40:writeln('OLGUNSUNUZ');
      41..55:writeln('YASLANIYORSUNUZ');
  else writeln('YASLISINIZ');
  end;
  readln;
  end.