varday, month, year: Integer;beginday := 2;month := 3;year := 2005;
writeln(day, ' ', month, ' ', year);end.
var
day, month, year: Integer;
begin
day := 2;
month := 3;
year := 2005;
writeln(day, ' ', month, ' ', year);
end.