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

1)var p,o,s:integer;beginRead(s);while s<>0 dobeginif s>0 thenp+=selseo+=s;Read(s);end;Writeln('сумма положительных ',p);Writeln('сумма отрицательных ',o);end.2)var n,o,s:integer;beginwriteln('введите кол-во чисел');Read(n);write('вводите числа по одному');for var i:=1 to n dobeginRead(s);if s mod 3 = 0 theno+=1;end;Write('кол-во кратных чисел 3 'o);end.

Var   A,So,Sp:real;BeginSo:=0;Sp:=0;RepeatRead(A);if A>0 then Sp:=Sp+Aelse So:=So+A;Until A = 0;WriteLn('Сумма положительных: ',Sp);WriteLn('Сумма отрицательных: ',So);End.Var   N,k,A:integer;BeginWrite('Введите количество чисел: ');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.