for i:=(break; 1) to 3 do 1