Var x,y:real; i,h:integer; begin h:=3; writeln ('y=4x-5'); WRITELN; writeln ('x y'); for i:=1 to 10 do begin y:=4*h-5; writeln (h,' ',y); h:=h+3; end; end.
Язык не указан, решение будет приведено на двух языках: наиболее популярном в школах Pascal и, на мой взгляд, незаслуженно считающемся "детским и непрофессиональным" BASIC (в примитивной его версии qBASIC). Как можно будет убедиться, в Бейсике программа получается даже короче и, я бы сказал, даже нагляднее.. <em><u>Pascal:</u></em> var x:integer; begin x:=1; Writeln(' x y=4x-5'); while x<30 do begin Writeln(x:2,4*x-5:6); x:=x+3 end end.