от и до как пишется

Ответ от Лариса Крушельницкая[гуру]
Турбо-паскаль function Sobaka(s:string):string; var i,flag:integer; ss:string; begin ss:=\'\'; flag:=0; for i:=1 to Length(s) do begin case flag of 0: if s[ i ]=\' \' then ss:=\'\' else begin if s[ i ]=\'@\' then flag:=1; ss:=ss+s[ i ];end; 1: if s[ i ]=\' \' then begin Sobaka:=ss; break; end else ss:=ss+s[ i ]; end; end; end;