program tt; var i : longint; j : real; begin for i := -10 to 10 do begin j := 2 * i; j := 0.2 * i; j := .2 * i; // if i = 0 then i := 1; // j := 0 / i; writeln(i, ' ' , j); end; end.