Написать программу решения задачи: С клавиатуры вводят 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