Program ditulis oleh Sudirman

uses wincrt;
Var tanggal : record
  hari, bulan, tahun : integer
end;
begin
  write('tanggal : ') ;
  readln(tanggal.hari);
  write('bulan   : ');
  readln(tanggal.bulan);
  write('tahun   : ');
  readln(tanggal.tahun);

  write('tanggal lahir anda : ');
  write(tanggal.hari);
  write(tanggal.bulan);
  write(tanggal.tahun);
  readln;
end.

Sudirman
[email protected]