Задача 15.4. Скласти програму для зчитування з текстового файлу dani.txt послiдовностi дiйсних чисел i виведення їх на екран.

Program pr15_4;
 Var f: text;
      a: real;
Begin
 assign (f,'dani.txt');
 reset(f);
  a:=0;
 while not eof(f) do
 begin
 read(f,a);  {Зчитувати...}
 write(f,a:5:2,' ');
 end;
 close(f);
end.

Завдання 15.4.1. Записати у текстовий файл назви шкiльних предметiв, що вводяться з клавiатури. Умовою закiнчення вводу є введення символу пiдкреслення '_'.