var 
  fout: textfile;
  a, b, c: integer;
  s : string;
  f, h, p : real;

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

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

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

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