1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
* Пример работы INPUT PROGRAM.
NEW file.
input program.
SET SEED=246813579.
loop block=1 to 200.
leave block.
compute pop=RND(uniform(10000)).
FORMATS block pop (F8.0).
end case.
end loop.
end file.
end input program.
execute.