uses crt;
var
s:integer;
tus:char;
 
Procedure A(yas:integer);
begin
case yas of
0..9:writeln('Kisi : Cocuk ..');
15..25:writeln('Kisi : Genc .. ');
26..40:writeln('Kisi : Orta yasli ..');
41..60:writeln('Kisi : Olgun ..');
61..120:writeln('Kisi : Yasli ..');
end;
end;
 
Begin {ana program blogu}
Clrscr;
repeat;
Writeln('Yasi giriniz:..');
readln(s);
A(s);
Writeln('Cikmak icin * karakterine basiniz..');
 
tus:=readkey;
until tus= '*';
readln;
End.