Var integer begin while. Var i,n:integer; begin write('n='); readln(n); for i:=1 to n do write(i, ', '); end.. program n_16 var x,a,b:integer. var s,x,n integer begin readln s,x s:=100*s+x. mod amax.

Var integer begin while. Var i,n:integer; begin write('n='); readln(n); for i:=1 to n do write(i, ', '); end.. program n_16 var x,a,b:integer. var s,x,n integer begin readln s,x s:=100*s+x. mod amax.
40 / 40