ДК
Дмитрий Клочков
uses
dos;
var
y, m, d, t: word;
begin
getdate(y, m, d, t);
writeln(d, '.', m, '.', y);
end.
--------------------------------------------------
uses
sysutils;
var
y, m, d: word;
begin
decodedate(date, y, m, d);
writeln(d, '.', m, '.', y);
end.
--------------------------------------------------
uses
system;
var
d: datetime;
begin
d := datetime.now;
writeln(d.day, '.', d.month, '.', d.year);
end.