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