Очень срочно!
Составить блок-схему алгоритма подсчета точек в тексте. Признак конца текста «?»

ubunt: Program abc;
var s:string;
i,n,k:integer;
begin
WriteLn ('Vvedite striky');
ReadLn(s);
n:=length(s);
k:=0;
for i:=1 to n do
if (s[i]='?') then WriteLn('Obschee kol-vo tochek=',k)
else
if (s[i]='.') then k:=k+1;
ReadLn;
end.

ubunt: блок схему думаю составишь

kogogin: А можно с блок схемой? Я в этом совсем не шарю :((

ubunt: я не помню как блок схемы рисуются, только принцип могу описать, если это поможет

ubunt: щас попробую нарисовать