for i:=0;i<5;ij++