JAWAB:
uses crt;
var nama, nim,programstudi,ket: string ;
tahunlahir, umur : integer;
begin
clrscr;
write('Nama : '); readln(nama);
write('NIM : '); readln(nim);
write('Program Studi: '); readln(programstudi);
write('Tahun Lahir : '); readln(tahunlahir);
umur:= 2010-tahunlahir;
writeln;
writeln('Umur: ', umur);
if umur <=5 then ket:='balita'
else if umur <=13 then ket:='anak-anak'
else if umur <=25 then ket:='remaja'
else if umur <=40 then ket:='dewasa'
else ket:='orang tua';
writeln('Keterangan: ',ket);
readln;
end.
Tidak ada komentar:
Posting Komentar