Паскаль

Дана строка. Если в этом числе буква f встречается только один раз, выведите её индекс. Если она встречается два и более раз, выведите индекс её первого и последнего появления. Если буква f в данной строке не встречается, ничего не выводите.

Var i, n, i1, i2: integer;

s: string;

begin

readln (s) ;

n : = length (s) ;

i1:=0;

i2:=0;

for i:=1 to n do

if s[i]='f' then

begin

if i1<1 then

i1:=i

else

i2:=i;

end;

if i1>0 then

if i2>0 then

writeln ('Первая и последняя позиции f = ', i1, ' и ', i2)

else

writeln ('Единственная позиция f = ', i1) ;

end.