turbo pascal

[brahmanchik]

код нужно доделать: перед циклами поставить условие, чтобы первый цикл выполнялся, если в предложении больше 6 букв, а второй если больше 5 букв.
var i,res1,res2:integer;
s:string;
begin
read(s);
if (s[1]<>' ') and (s[2]=' ') then res2:=res2+1;
if (s[length(s)-1]<>' ') and (s[length(s)-2]=' ') then res2:=res2+1;
if (s[length(s)-1]='о') and (s[length(s)-2]<>' ') then res1:=res1+1;
for i:=3 to length(s)-3 do
begin
if (s[i-1]=' ') and (s[i+1]=' ') then res2:=res2+1;
end;
for i:=2 to length(s)-3 do
begin
if (s[i-1]<>' ') and (s[i+1]=' ') and (s[i]='о') then res1:=res1+1;
end;
writeln('местоимений-',res2,' наречий-',res1);
end.

[Serge_Bliznykov]

Название темы опять НЕ отражает суть задачи.

Код опять НЕ оформлен.

ТЕМА ЗАКРЫТА.