{* Задача 156 *}

Unit ZADACH156;
Interface
Implementation
Begin
 writeln('Составить программу, удаляющую в файле текст после первой точки');
End.

Program pas13598;

Uses zadach156.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Необходимые переменные *}
  fl1 : text;
  a   : String;
  i   : longint;
  l   : longint;
  poz : longint;
Begin
  clrscr; {* Стираем всё с экрана *}
  assign(fl1, 'input.txt'); {* Привязка переменной fl1 к файлу 'input.txt' *}
  reset(fl1); {* Подготовка переменной fl1 для чтения из файла *}
  readln(fl1, a);
  close(fl1); {* Закрытие файла *}
  l := length(a);
  rewrite(fl1); {* Запись в файл через переменную fl1 *}
  For i := 1 To l Do {* Переменная i увеличивается с 1 до l *}
    If a[i] = '.' Then
    Begin
      poz := i;
      Goto m;
    End;
  m:
  For i := 1 To poz Do {* Цикл для i => [1 .. poz] *}
    write(fl1, a[i]);
  close(fl1); {* Закрытие файла *}
End.