Добавлено спустя 18 минут 53 секунды:
получилось вот так:
Код: Выделить всё
uses dos
.
var a, b, c, d: word;
.
begin
GetDate(a,b,c,d)
// перeменная [b]a[/b] и есть текущий год.Код: Выделить всё
uses dos
.
var a, b, c, d: word;
.
begin
GetDate(a,b,c,d)
// перeменная [b]a[/b] и есть текущий год.