Сформулируйте и запишите после текста его основную мысль. Расставьте знаки препинания, раскройте скобки, вставьте пропущенные буквы. Определите виды

Var s:string;
i,k:integer;
b:boolean;
begin
readln(s);
for i:=1 to length(s) do
if (s[i]<>' ') then begin inc(k);
  if k=3 then b:=true; end
else k:=0;
writeln(b);
end.

var i:integer;
s:string;
b:boolean;
s1:char;
begin
readln(s);
readln(s1);
for i:=1 to length(s) do
if s[i]=s1 then b:=true;
writeln(b);
end.