Задача по теме:Паскаль

[DarknooB]

Помогите пожалуйста решите задачу.
Дано 5 чисел.Найти сумму положительных чисел и произведение отрицательных.

[Niro]

В каком виде заданы этих пять чисел? массив, просто введены с клавы, из файла?

[DarknooB]

просто введены с клавы

[Niro]

Тогда так

sum:=0; pr:=1;
for i:=1 to 5 do
begin
   readln(chislo);
   if chislo=>0 then sum:=sum+chislo else pr:=pr*chislo
end;

[DarknooB]

Спасибо!!!)