[Alegun]

Код:

function ptg(ds:string):string;
var
i: integer;
begin
for i := 1 to Length(ds) do
if ds[i] <> '(' then Result:= Result + ds[i] else Exit;
end;