program istruz_for(output); var a:integer; b:integer; begin b:=10; for a:=1to b do begin writeln(a); end end.