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

Const
c1='Математический анализ';
c2='Алгебра и геометрия';
c3='Информатика';
c4='История';
c5='Философия';
var
  o: text;

begin
  AssignFile(o, 'Output.dat');
  Rewrite(o);
  write(o,c1,'|',c2,'|',c3,'|',c4,'|',c5);    
  CloseFile(o)
end.