Паскаль / 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.