[ALexandr555]

Счет успешно пополнен!
Полная версия кода

Код:

var
s:string;
x: integer;
begin
s:='\ахтунг\';
if pos('\',s)>0 then x:=1;
end;