Question

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


Математический
анализ;
Алгебра и геометрия;
Информатика;
История;
Философия.

Answer 1

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.