do1;read*,i,j;k=i>j;l=i