Определить количество букв «и» в первом предложении

var
  s: string;
  k, i: integer;
 
begin
  k := 0;
  readln(s);
  for i := 1 to length(s) do
    if s[i] = 'и' then 
      inc(k);
  writeln(k);
end.

var
  s: string;
  k, i: integer;
 
begin
  k := 0;
  readln(s);
  for i := 1 to length(s) do
  begin
    if s[i] = 'и' then 
      inc(k);
    if s[i] = '.' then 
      break;
  end;
  writeln(k);
end.

var
  s: string;
  k, i: integer;
 
begin
  readln(s);
  for i := 1 to length(s) do
    if s[i] = 'и' then inc(k)
    else if s[i] = '.' then break;
  writeln(k)
end.

var
  s: string;
  k, i: integer;
  p: boolean;
begin
  p := false;
  repeat
    readln(s);
    for i := 1 to length(s) do
      if s[i] = 'и' then inc(k)
      else
        if s[i] = '.' then
          begin
            p := true;
            break
          end
  until p;
  writeln(k)
end.

uses
  crt;
var
  c: char;
  k: integer;
begin
  repeat
    read(c);
    if c = 'и' then inc(k)
  until c = '.';
  while keypressed do readkey; //освобождение буфера клавиатуры
  writeln(k)
end.

var s: string; k,i:integer;
begin
k:=0;
readln(s);
for i:=1 to length(s) do
begin
 if s[i]='и' then inc(k);
 if (s[i]='.') or (s[i]='?') or (s[i]='!') then break;
 end;
 writeln(k); end.

var s: string; k,i:integer;
begin
k:=0;
readln(s);
while (s[i]='.')or(s[i]='?')or(s[i]='!')do
begin
 if s[i]='и' then inc(k);
 i:=i+1;
 end;
 writeln(k);
  end.

while (s[i]<>'.')and(s[i]<>'?')and(s[i]<>'!')do

var
  s: string;
  k, i: integer;
begin
  k:= 0;
  i := 1;
  readln(s);
  while not (s[i] in ['.', '!', '?']) and (i <= length(s)) do
    begin
      if s[i] = 'и' then inc(k);
      inc(i)
    end;
  writeln(k)
end.