Хелпаите Надо написать 2 программы на Паскале..

FAR Manager — консольный файловый менеджер для операционных систем семейства Microsoft Windows.

Автор программы — Евгений Рошал. С 18 июня 2000 года разработкой FAR Manager занимается группа FAR Group. Начиная с версии 2.0 программа распространяется под модифицированной лицензией BSD. Предыдущие версии имели собственническую лицензию, по которой коммерческое использование программы являлось платным.

Программа FAR Manager наследует двухоконную идеологию, стандартную расцветку и систему команд (управление с клавиатуры) у известного файлового менеджера Norton Commander.

Norton Commander (сокращенно называемый на советском пространстве NC, сленг рус. Нортон ) — популярный файловый менеджер для DOS, первоначально разработанный американским программистом Джоном Соухэ. (Некоторые дополнительные компоненты были полностью или частично написаны другими людьми: Linda Dudinyak — Commander Mail, вьюверы; Peter Bradeen — Commander Mail; Keith Ermel, Brian Yoder — вьюверы.) Программа была выпущена компанией Peter Norton Computing (глава — Питер Нортон ), которая позже была приобретена корпорацией Symantec.

В течение нескольких лет Norton Commander конкурировал по степени популярности с файловыми менеджерами PCTools и XTree, однако уже с третьей версии Norton Commander вытеснил с персональных компьютеров эти программы.

Разработка велась с 1984 года (первоначально под названием VDOS). Первая версия была выпущена в 1986 году.

Program zadacha;vara: array[1..1000] of integer;i,n,sum_pol,sum_otr: integer;beginwriteln('vvedite kol-vo elementov massiva');readln(n);for i:=1 to n do begina[i]:=random(1000)-500;write(a[i]:6);end;
sum_pol:=0;sum_otr:=0;for i:=1 to n do beginif a[i]>0 then sum_pol:=sum_pol+a[i];end;writeln();writeln('udvoennaya summa polojit. chisel = ', sum_pol*2);
for i:=1 to n do beginif (a[i]<0) and (i mod 2 <> 0) then sum_otr:=sum_otr+a[i];end;
writeln('summa otricat. i nechetn. chisel = ', sum_otr);end.