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

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

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

  close(input) {закрываем считывание из файла}
end.