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

begin
  assign(fin,'example.txt'); {сопоставляем имени fin файл на диске example.txt}
  reset(fin); {открываем файл на считывание с начала файла}

  readln(fin,s);     {считываем текст из файла fin, сохраняя его в переменной s}
  readln(fin,a,b,c); {считываем три числа из файла fin, сохраняя их значения в переменных a, b, c}
  readln(fin,f,h,p); {считываем три числа из файла fin, сохраняя их значения в переменных f, h, p}

  close(fin) {закрываем файл}
end.