Товарищи, вечер добрый!Задача такая:Даны два предложения. Найти общее количество букв в них. Определить функцию для расчета количества букв в предложении.
Сама программа составлена. Помогите пожалуйста с составлением блок схемы
const
rl = ['А'..'Я', 'а'..'п', 'р'..'я', 'ё', 'Ё'];
el = ['a'..'z', 'A'..'Z'];
var
s1, s2: string;
k: integer;
function LiteraCount(st: string): Integer;
var
i, n: integer;
begin
n := 0;
for i := 1 to Length(st) do
if (st[i] in rl) or (st[i] in el) then
n := n + 1;
LiteraCount := n;
end;
begin
Writeln('Введите 1 предложение: ');
Readln(s1);
Writeln('Введите 2 предложение: ');
Readln(s2);
s1 := concat(s1, s2);
k := LiteraCount(s1);
Writeln('Общее количество букв в преложениях= ', k);
end.
