Выполнить задачи в Паскале:

2.2. Подсчитать количество предлогов "в" в данном предложении.

2.3. Удалить предлоги "с" в строке.

Var s:string; i, n, k:integer;

begin

s: = 'Вот это в задание требует в предлогов в данном в предложении';

n: = length (s) ;

for i: = 2 to n-1 do begin

if (s[i-1]=' ') and (s[i] = 'в') and (s[i+1]=' ') then begin writeln (i, s[i]:3) ;

k: = k + 1; end; end;

write (k) ; end.