Текущая дата

uses crt,utils;
var i:integer;
    d:datetime;
begin
hidecursor;
window(36,12,47,14);
textbackground(0);
textcolor(10);
clrscr;
d:=CurrentDateTime;
if d.day>1 then d.day:=d.day-1
else if d.day=1 then
 begin
  if d.month in [1,2,4,6,8,9,11] then d.day:=31
  else if d.month in [5,7,10,12] then d.day:=30
  else
   begin
    if d.year mod 4=0 then d.day:=28
    else d.day:=29;
   end;
 end;
gotoXY(3,2);
if d.day<10 then write('0',d.day,'.')
else write(d.day,'.');
if d.month<10 then write('0',d.month,'.')
else write(d.month,'.');
write(d.year);
end.

uses crt,utils;
var i:integer;
    d:datetime;
    dn,gd:integer;
begin
hidecursor;
window(36,12,49,14);
textbackground(0);
textcolor(10);
clrscr;
d:=CurrentDateTime;
dn:=d.year;
gd:=d.day;
if dn>1 then dn:=dn-1
else if dn=1 then
 begin
  if d.month in [1,2,4,6,8,9,11] then dn:=31
  else if d.month in [5,7,10,12] then dn:=30
  else
   begin
    if gd mod 4=0 then dn:=28
    else dn:=29;
   end;
 end;
gotoXY(3,2);
if dn<10 then write('0',dn,'.')
else write(dn,'.');
if d.month<10 then write('0',d.month,'.')
else write(d.month,'.');
write(gd);
end.

{ Составить программу, выводящую на экран текущую дату, установленную в ОС, 
и изменяющую её на день назад }
{ PascalABC.NET }
Uses
  System;
 
var 
  d1: DateTime;
 
begin
  d1 := DateTime.Now; 
  Writeln(d1.Day, '.', d1.Month, '.', d1.Year);
 
  d1 := d1.AddDays(-1);
  Writeln(d1.Day, '.', d1.Month, '.', d1.Year);
end.