Составить блок схему. Вычислить функцию

procedure vvod(var st:string[10]; c:string);
begin writeln('Ввести'+' '+c);
readln(st);
end;
function kol(c:string;st:string):integer;
var k,i:integer;
begin k:=0;
i:=1;
while i<=length(st) do
begin if copy(st,i,1)=c then
k:=k+1;
i:=i+1;
end;
kol:=k;
end;
var s,s1,s2:string[10];
Begin vvod(s,'строку');
vvod(s1,'символ первый');
vvod(s2,'символ второй');
if kol(s1,s) >kol(s2,s) then
writeln('Символ ',s1,' встречается в строке ',s, kol(s1,s):4,' раз. Это >, чем встречается ',s2)
else
if kol(s2,s) >kol(s1,s) then
writeln('Символ ',s2,' встречается в строке ',s, kol(s2,s):4,' раз. Это >, чем встречается ',s1)
else
writeln('Количество символов ',s1,' и ',s2,' в строке ',s,' одинаково и =',kol(s1,s):4) ;
end.

Найдите периметр и площадь прямоугольного треугольника с катетами a и b
Вот из этого нужно составить блок схему

Напиток
алг
нач
орехи истолочь в ступке
орехи растворить в горячем молоке
варить 10 минут, добавить сахар
охладить
кон
2.Составьте блок-схему нахождения периметра треугольника
по формуле: P=a+b+c, если a=3; b=4;c=5.
3.Даны числа X,Y,Z. найдите их среднее арифметическое.
4. составьте блок-схему вычисления следующего выражения:
a=|x-y| : 10x+|xy+x+y|
РЕБЯТ ПОМОГИТЕ ПОЖАЛУЙСТА ОЧЕНЬ НУЖНА ВАША ПОМОЩЬ!

называется алгоритмом ветвления , его служебные слова и блок схема параграф 3,4 6. Что называется командой повторения ?

момент имеется одна бактерия. Составьте блок-схему алгоритма вычисления количества бактерий через 10 минут. Исполните алгоритм, фиксируя каждый его шаг в таблице значений переменных.
Заранее спасибо, надеюсь на вашу помощь)