Pascal/Turbo Pascal - ¿como hacer estos programas?

hacer un programa que lea 10 numeros desde el teclado y sume aquellos que solo sean negativos.

hacer un programa que calcule independientemente la suma y la media de los numeros pares e impares comprendidos del 1 al 200.

hecer un programa que calcule el importe de una factura sabiendo que el iva aproximado es de 12%, si el importe bruto es mayor de 10,000 pesos se le aplica el 5%y si es mayor de 50,000 pesos es de 10 %.

para el primero (declaras las varialbles necesarias y a correr):

contador := 0
for i:= 1 to 10 do
begin
readln(N);
IF N < 0 THEN
contador:= contador + 1
end;
****************************************************
para el segundo:
pares:= 0
impares :=0
FOR i:= 1 TO 200 DO
begin
IF (i MOD 2 = 0) THEN
pares:= pares + i
ELSE
impares:= impares + i

end;
mediapares:= pares/100
mediaimpares:= impares/100

contador := 0
for i:= 1 to 10 do
begin
readln(N);
IF N < 0 THEN
contador:= contador + N
end;
de esta forma esta mejor

para el tercero:

begin
readln(cantidad);
if (cantidad >0) and (cantidad < 10000) then
importe:= cantidad + (cantidad*0.12)
else
if (cantidad>=10000) and (cantidad < 50000) then
importe:= cantidad + (cantidad * 0.05)
else
importe:= cantidad + (cantidad * 0.1)
end;

La verdad es que no se ni porque os molestais en contestar a esta clase de personas que solo buscan que le den los programas del colegio hechos.

Una empresa se dedica a la compra y venta de repuestos del automotor (250 en total), divididos en 15 categorias. Se desea controlar el stock de todos los repuestos de todas operaciones realizadas en este año (no tener en cuenta el mes en curso). Las operaciones cubren un total de 1200 movimientos y no estan en orden. Se cuenta con la siguiente información:
· Tipo de operación (compra/venta)
· Código de artículo
· Categoría
· Cantidad de mercaderia
Se pide
o Stock para cada categoría
o Stock por cada categoría de todos los meses
o Cantidad vendida del articulo 230 de todo el año
o Generar un vector para guardar el stock cada categoría (sin importar el mes)
o Ordene el vector generado en el punto anterior