Program asd;
USES crt;
Const n=11;
var A:array [1..n] of integer;
i,j:integer;
BEGIN
clrscr;
For i:=1 to n do begin Write( ,i);
end;
END.
Если по условию что-то не так, подправляй
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.