Помогите решить задачи по информатике в паскале

1. с клавиатуры вводят числа. признак окончания ввода чисел число 0. вычислить сумму положительных и отрицательных чисел

2. сначала вводится количество чисел а затем сами числа вычислить количество чисел кратных 3

1)

var p, o, s:integer;

begin

Read (s) ;

while s0 do

begin

if s>0 then

p+=s

else

o+=s;

Read (s) ;

end;

Writeln ('сумма положительных ', p) ;

Writeln ('сумма отрицательных ', o) ;

end.

2)

var n, o, s:integer;

begin

writeln ('введите кол-во чисел') ;

Read (n) ;

write ('вводите числа по одному ') ;

for var i:=1 to n do

begin

Read (s) ;

if s mod 3 = 0 then

o+=1;

end;

Write ('кол-во кратных чисел 3 'o) ;

end.

Var

A, So, Sp:real;

Begin

So:=0;

Sp:=0;

Repeat

Read (A) ;

if A>0 then Sp:=Sp+A

else So:=So+A;

Until A = 0;

WriteLn ('Сумма положительных: ', Sp) ;

WriteLn ('Сумма отрицательных: ', So) ;

End.

Var

N, k, A:integer;

Begin

Write ('Введите количество чисел: ') ; ReadLn (N) ;

Write ('Введите сами числа: ') ;

k:=0;

For N: = 1 to N do

Begin

Read (A) ;

if A mod 3 = 0 then k:=k+1

End;

WriteLn ('Количество чисел, кратных трём: ', k) ;

End.