parsing int

function getdate(s:string):uint64;
var s1,s2,s3:string;
begin
s:=s+' ';
s1:=copy(s,1,pos(' ',s)-1);
delete(s,1,pos(' ',s));

s2:=copy(s,1,pos(' ',s)-1);
delete(s,1,pos(' ',s));

s3:=copy(s,1,pos(' ',s)-1);
delete(s,1,pos(' ',s));
getdate:=s1.ToInteger+s2.ToInteger*30+s3.ToInteger*12*30;
end;


begin
var s:string;
s:='11 12 2018';


writeln(getdate(s));
writeln(s);



end.