Паскаль / do9 / iriepas201 / Irie Pascal / samples / date

(*
** PURPOSE: Displays today's date
*)
program date(output);
var
   year, month, day, day_of_week : integer;

   function DayName(d : integer) : string;
   begin
      case d of
      0: DayName := 'Sun';
      1: DayName := 'Mon';
      2: DayName := 'Tue';
      3: DayName := 'Wed';
      4: DayName := 'Thur';
      5: DayName := 'Fri';
      6: DayName := 'Sat';
      end
   end;

begin
   GetDate(year, month, day, day_of_week);
   writeln('Today is ', DayName(day_of_week), day:3, '/', month:2, '/', year:4);
end.