2

program RECORD_INTRO;
type
    tanggal = record
        bulan, hari, tahun : integer;
    end;
var waktu : tanggal;
begin
    waktu.hari :=25;
    waktu.bulan:=09;
    waktu.tahun:= 1983;
    writeln('Tanggal hari ini adalah ', waktu.hari,'-', waktu.bulan, '-', waktu.tahun)
end.