{$codepage UTF8} VAR n : byte; BEGIN n:=1; While n<11 do Begin Writeln(n); n+=1 End; END.