function Pars(T_, ForS, _T: string): string; var A, B: Integer; begin Result := ''; if (T_ = '') or (ForS = '') or (_T = '') then Exit;...
на телефон код отправляется, по этому и показывает