k=0 do { Driver.Caption = "Проверка отрезчика №" +k; Driver.PrintString(); Driver.PartialCut(); Driver.Caption = "………………….Успешно!"; Driver.PrintString(); Driver.Caption = "…………………."; Driver.PrintString(); Driver.PrintString(); Driver.PrintString(); Driver.PrintString(); k++; for (i=1;i<1000;i++); { for (x=1;x<500000;x++); } } while (k<100);