* Пример работы 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.