Написать программу решения : с клавиатуры вводят 9 вещественных чисел. занести в типизированный файл только отрицательные из введённых чисел. при форматирование файла учесть, что в файле данные должны быть записаны в строку.

Var
  i:integer;
  n:real;
  f:file of real;
begin
  Assign(f,'in.dat');
  Rewrite(f);
  Writeln('Введите 9 вещественных чисел');
  for i:=1 to 9 do begin Read(n); Write(f,n) end;
  Close(f)
end.

Пример ввода:
Введите 9 вещественных чисел
2 -5 1.45 -81.34 5.63e-10 0 -13.45e12 17.5353 -12e-3 1000