напишите задачу на Паскал пожалуйста

ну я напишу основу кода. Всякие мелкие финтифлюшки сама допишешь.

Var
A : Array [1..10] Of Integer; { создаем массив из 10 чисел }
B : Array [1..10] Of Integer; { создаем массив из 10 чисел }
C: Array [1..10] Of Integer; { создаем массив из 10 чисел }
I, G, H: Integer; {просто от балды взятые числа для индексов}

Begin

I:=1;
G:=1;
H:=1;

For I:=1 to 10 Do

Begin
Writeln('Введите число'); {тут мы руками задаем значения массива, хотя можно было и просто рандомом}
Readln(A);
End;

For I:=1 to 10 Do

Begin
IF A<0 THEN C[H]:=A {туточки мы раскидываем числа по двум другим массивам: в С отрицательные, в B все остальные}
Else B[G]:=A
H:=H+1;
G:=G+1;
End;

End.

Собсно основа вот. Самое главное это условный оператор. Проверь точки с запятыми и т. д.

Спасибо написал:
uses crt; {podklyu4aem modul' dlya raboty s ekranom}
var
i,n,POL,OTR:integer;
M:array[1..100] of real;{pervyi massiv}
P:array[1..100] of real;{massiv polozhitel'nykh elementov}
O:array[1..100] of real;{massiv otricatel'nykh elementov}
begin
repeat
begin
write('Vvedite 4islo elementov massiva M:');
readln(n);
end
until n>0;
for i:=1 to n do
begin
write('Vvedite ',i,'-i element massiva M: ');
readln(M);
if M>=0 then
begin
POL:=POL+1;
P[POL]:=M;
end
else
begin
OTR:=OTR+1;
O[OTR]:=M;
end;
end;
{Vyvod rezultatov}
clrscr; {o4ishchaem ekran}
writeln('Vvedennyi massiv M:');
for i:=1 to n do write(M:6:1);
writeln;
writeln('Massiv polozhitelnykh i nulevykh elementov P:');
for i:=1 to POL do write(P:6:1);
writeln;
writeln('Massiv otricatelnykh elementov O:');
for i:=1 to OTR do write(O:6:1);
writeln;
readln;
end.