4) program z1; var i,j,x:integer; begin for i:=1 to 9 do for j:=1 to 9 do for x:=1 to 9 do begin if (i<j) and (j<x) then write(i,j,x); writeln; end. 5) program z1; var i,j:integer; begin for i:=1 to 9 do for i:=1 to 9 do writeln(i,j,j,i); end. 6)program z1; var a:real i:integer; begin readln(a); for i:=1 to 10 do writeln(a,'*',i,'=',a*i); end. 7)program z1; var a,b,x:real; begin readln(a,b); for x:=(-10) to 10 do writeln('x=',x,' y=',(a*x+b)); end.