program Natmas;

var M: array[1..1000] of integer;

I: integer;

begin

for I:=1 to 1000 do

begin

M[I]:=I;

write(' ', M[I]);

end;

readln;

end.

PRINT "100"

DIM A(100)

FOR i = 1 TO 100

A(i) = i

PRINT A(i);

NEXT i

INPUT z

#include <conio.h>

#include <iostream>

int main(void)

{

int i;

double a[1001];

std::cout << "1000\n\n ";

for (int i = 1; i < 1001; i++) {

std::cout <<i << " " ;}

getch();

return 0;

}

TextWindow.WriteLine("1000")

For i=1 To 1000

a[i] =i

TextWindow.Write(a[i]+" ")

EndFor

print('1000')

n=1000

while 0 < n:

print (n)

n -= 1

input()