PROGRAM Project1; 
{$APPTYPE CONSOLE} 
uses 
SysUtils; 

CONST 
n=9; // количество элементов массива 
label prog1,prog2,ASD ; 

TYPE 
ar=array[1..n] of real; // объявление типа массива 
VAR 
a:ar; // исходный массив А 
s:real; // сумма отрицательных элементов 
i,ppp,m:integer; // счетчик элементов 
begin 

Writeln('Press 1 to program #1'); 
Writeln('Press 2 to program #2'); 
readln(ppp); 
if ppp=1 then goto ASD; 
begin 
if ppp=2 then goto prog2; 
// Ввод исходных данных 
ASD: WriteLn('Type ', n, ' real elements of array:'); 
for i:=1 to n do 
Read(a); 
writeln; 
// Выполнение задачи 
s:=0; m:=0; // начальное значение суммы 
for i:=1 to n do // цикл перебора элементов массива 
if (a>0) and (m<5) 
then // выборка отрицательных элементов 
begin 
s:=s+a; // суммирование 
m:=m+1; 
end; 
// Вывод результата 
if s=0 then 
WriteLn('Нет положительніх єлементов') 
else 
WriteLn(' S=',s:8:4); 
WriteLn('***** Press <enter> to finish *****'); 
Readln; // задержка экрана 
Readln; 
end; 
end.