tanggal langsung

program tgl_lngsung;
uses wincrt;
var
    tanggal : string[10];
    hari   : string[6];
    pasaran : string[4];
    jarak   : char;
begin
     tanggal:= '18-02-1980';
     hari   := 'jum''at';
     pasaran:= 'legi';
     jarak  :=' ';
     writeln(tanggal, jarak, hari,' ',pasaran)
end.