Нарисовать блок схему

[Felonen]

Вот программа
program sk;
Uses CRT;
var
c1: char;
c: char;
k:integer;
begin;
k:=0;
writeln('введите текст');
c := readkey;
c1:=#32;
while c<>#46 do begin
read (c);
if (c1=#32) and ((c=#1040) or (c=#1072)) then
k:=k+1;
c1:=c;
end;
writeln;
write('количество слов',k);
readln;
end.

[digitalis]

Приучайся форматировать текст исходника, хотя бы вот так:
https://programmersforum.ru/showthre...84#post1815384
используй тэги CODE, иначе читать это "полотенце" никому не захочется.
И почитай вот это, мож пригодится:
https://levashove.ru/7-besplatnyh-pr...-v-windows-10/
Хотя для такой алиментарной проги схему нарисовал бы даже кот Мурзик. Почитав хотя бы
https://ru.wikipedia.org/wiki/Блок-схема - становишься уже почти профи в этом деле, а то
"сделайте за меня" воспринимается как "я ленивый и тупой".

[Desc]

Сообщение от digitalis

"сделайте за меня" воспринимается как "я ленивый и тупой".

Нет, не так.
Это называется - ускориться в жизни

[digitalis]

- Нет бабок.
- Халява, сэр! © из анекдота

[Arigato]

Построить дом.
Вот проект.