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

1)

var p,o,s:integer;
begin
Read(s);
while s<>0 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.