var 
  a, b, c: integer;

begin
  assign(output, 'output.txt');  {сопоставляем стандартному выводу output файл на диске output.txt}
  rewrite(output);               {открываем файл на запись, стирая ВСЕ его содержимое}

  a:=12345;  b:=-12345;  c:=0;
  s:='Пример текста';
  f:=1.2345; h:=-1.2345; p:=0.0;

  writeln(s);             {записываем текст в файл output}
  writeln(a:8, b:8, c:8); {записываем три целых числа в файл output.txt}
  writeln(f:8:5, h:8:4, p:8:1); {записываем три дробные числа в файл output.txt}

  close(output) {обязательно закрываем файл после завершения работы с ним}
end.