Напишите на паскале ,пожалуйста.
Вот задание:Введится 10 чисел,определите сколько положительных и отрицательных.

var  a, b, c, d, e, f, g, h, i, j, x, y: integer;  begin  write('введите 10 чисел: ');  read(a, b, c, d, e, f, g, h, i, j);  if a < 0 then y := y + 1 else x := x + 1;  if b < 0 then y := y + 1 else x := x + 1;  if c < 0 then y := y + 1 else x := x + 1;  if d < 0 then y := y + 1 else x := x + 1;  if e < 0 then y := y + 1 else x := x + 1;  if f < 0 then y := y + 1 else x := x + 1;  if g < 0 then y := y + 1 else x := x + 1;  if h < 0 then y := y + 1 else x := x + 1;  if i < 0 then y := y + 1 else x := x + 1;  if j < 0 then y := y + 1 else x := x + 1;  writeln('количество положительных чисел: ', x);  writeln('количество отрицательных чисел: ', y);end.