program NewProject; var time:integer; text: string; b: string; begin time := getCurrentTime; text := '' + getYear(time); b := Copy(text, 2, 4); DrawText(b, 15, 103); repaint; delay(2000); end.