Untitled

mail@pastecode.io avatar
unknown
plain_text
a year ago
740 B
11
Indexable
Never
program MenentukanKeteranganUsia;
var
  usia: integer;
  keterangan: string;
begin
  write('Masukkan usia: ');
  readln(usia);

  if (usia >= 0) and (usia <= 3) then
  begin
    keterangan := 'Bayi';
  end
  else if (usia <= 5) then
  begin
    keterangan := 'Balita';
  end
   else if (usia >= 12) and (usia <= 25) then
  begin
    keterangan := 'Remaja';
    end
  else if (usia >= 26) and (usia <= 45) then
  begin
    keterangan := 'Dewasa';
    end
  else if (usia >= 46) and (usia <= 65) then
  begin
    keterangan := 'Lansia';
    end
  else if(usia>65) then
  begin
    keterangan := 'Manula';
  end
  else 
  begin
    Keterangan:='usia 6-11 tahun tidak di terdaftar';
  end;

  writeln('Keterangan: ', keterangan);
  readln;
end.