For example:
Uses wincrt;
Var input:integer;
Begin
Var input:integer;
Begin
writeln('Nama : Rony Andrew');
writeln('NRP : 11-2004-180');
writeln('==================');
writeln('
');
Write('Masukkan Umur anda = ');readln(input);
If input <2 then
Write('Masukkan Umur anda = ');readln(input);
If input <2 then
Writeln('klasifikasi Anda = Bayi')
else If input <12 then
Writeln('klasifikasi Anda = Anak-anak')
else If input <18 then
Writeln('klasifikasi Anda = Remaja')
else If input <24 then
Writeln('klasifikasi Anda = Dewasa muda')
else If input <40 then
Writeln('klasifikasi Anda = Dewasa tua')
else If input <55 then
Writeln('klasifikasi Anda = Orang Tua')
ElseWriteln('klasifikasi Anda = Lansia');
Repeat until keypressed
End.