05/11/29 09:01:26
>>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);