Program asd; USES crt; var A:array [1..11] of integer; i,j:integer; BEGIN clrscr; For i:=1 to 11 do begin Write(' ',i); end; END.