program PascalGuru;
uses crt;
 
procedure position;
var p:integer;
    s:string;
    c:char;
begin
repeat
clrscr;
writeln ('Dlya vixoda vvedite "Exit" ');
writeln;
write('Stroka: '); readln(s);
if (s='Exit') or (s='exit') then exit;
write('Simvol: '); readln(c);
writeln('-Pozitia= ',pos(c,s));
readln;
until s='Exit';
end;
{-------------------------------}
begin
 
position;
 
end.