>>20
program Project1;

{$APPTYPE CONSOLE}

uses
    SysUtils;

var
    i, j:    Integer;
    len:    Integer;

    StartTime: TDateTime ;
    EndTime: TDateTime ;

    Hour, Min, Sec, MSec: Word;

    str:    String;
begin

    Readln(str);

    StartTime:=Now;

    len:=Length(str);

    i:=1;
    while str[i]<>'=' do
    begin
        Write(str[i]);
        Inc(i);