Question

Создать программу в паскале ввода с клавиатуры анкетных данных (ФИО, дата рождения, место проживания, место работы) и их вывода в текстовый документ. То есть, программа поочередно предлагает ввести данные и после их ввода появляется текстовый файл с введенными данными

Answer 1

Program Anketa;
var
  st: String;
  f: Text;
begin
   Assign(f,'anketa.txt');
   Rewrite(f);
   Write('Введите ваши ФИО: ');
   Readln(st);
   Writeln(f, 'ФИО: ',st);
   Write('Введите вашу дату рождения: ');
   Readln(st);
   Writeln(f, 'Дата рождения: ',st);
  Write('Введите ваше место проживания: ');
   Readln(st);
   Writeln(f, 'Адрес проживания: ',st);
Write('Введите ваше метсо работы: ');
   Readln(st);
   Writeln(f, 'Место работы: ',st);
   Close(f);
   Writeln('Спасибо, ваши данные были сохранены успешно!');
  Readln;
end.

Answer 2

Конечно, вот пример программы на Pascal, которая выполняет указанные вами задачи. Программа предлагает ввести данные, а затем записывает их в текстовый файл:

program Анкета;

uses
  SysUtils;

var
  ФИО, ДатаРождения, МестоПроживания, МестоРаботы: string;
  Файл: TextFile;

begin
  // Ввод данных с клавиатуры
  Write('Введите ФИО: ');
  Readln(ФИО);

Write('Введите дату рождения: ');
  Readln(ДатаРождения);

Write('Введите место проживания: ');
  Readln(МестоПроживания);

Write('Введите место работы: ');
  Readln(МестоРаботы);

// Запись данных в текстовый файл
  AssignFile(Файл, 'анкета.txt');
  Rewrite(Файл);

Writeln(Файл, 'ФИО: ', ФИО);
  Writeln(Файл, 'Дата рождения: ', ДатаРождения);
  Writeln(Файл, 'Место проживания: ', МестоПроживания);
  Writeln(Файл, 'Место работы: ', МестоРаботы);

CloseFile(Файл);

Writeln('Данные успешно записаны в файл "анкета.txt".');
  Readln;
end.

Эта программа запрашивает у пользователя ФИО, дату рождения, место проживания и место работы, а затем записывает эти данные в текстовый файл "анкета.txt". Вы можете изменить имя файла или его путь, если это необходимо.