var j : real;
var i : integer;