Program n1; Uses CRT; Var x: integer; y: real; begin x:=1; While x<=30 do begin; y:=4*x-5; writeln(x,' ',y:2:2); x:=x+3; end; readln end.