Использование циклов
Использование циклов d1 := DateTime.Now; t := d1.Hour*60*60*1000 + d1.Minute*60*1000 + d1.Second*1000 + d1.Millisecond; moveTo(300,200); LineTo(300,200,clBlue); LineTo(288,248,clBlue); LineTo(254,284,clBlue); LineTo(207,300,clBlue); LineTo(158,291,clBlue); LineTo(120,260,clBlue); LineTo(101,214,clBlue); LineTo(106,165,clBlue); LineTo(135,124,clBlue); LineTo(179,102,clBlue); LineTo(228,104,clBlue); LineTo(271,129,clBlue); LineTo(296,172,clBlue); LineTo(300,200,clBlue); d2 := DateTime.Now; t := (d2.Hour*60*60*1000 + d2.Minute*60*1000 + d2.Second*1000 + d2.Millisecond)-t; Writeln(t); end. Использование циклов