Найти заданную сумму положительных элементов массив,сумму четных и суммы первых пяти.
НУЖЕН КОД ДЛЯ ПОСКАЛИ!Помогите пожалуйста.

Var a:array[1..10] of integer;
sum,chet,s,i:integer;
begin
sum:=0;
s:=0;
chet:=0;
for i:=1 to 10  do
begin
a[i]:=random(200)-100;
writeln(a[,i,] = , a[i]);
if a[i] > 0 then sum:=sum+a[i];
if a[i] mod 2 = 0 then chet:=chet+a[i];
if i<6 then s:=s+a[i];
end;
writeln(summa polozhitelnix = ,sum);
writeln(summa chetnix = ,chet);
writeln(simma pervix 5 = , s);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.