Изобразите блок схему данного алгоритма

7:00 — Я просыпаюсь. Как всегда — не выспавшийся.
7:01 — Поднимаюсь. Иду в ванную умываться.
7:05 — Умываюсь. Иногда чищу зубы.
7:10 — Иду на кухню наливать чай. С утра я не завтракаю, пью чай без сахара и без всяких конфет, печений и т.д.
7:15 — Пью чай, смотрю новости по телевизору.
7:30 — Одеваюсь и собираюсь на занятия. 
7:40 — Выхожу из дома и иду на остановку. Без наушников в ушах я редко выхожу из дома. Без них — день неудался 99%.
7:45 — Стою на остановке. Жду автобус № 6 или троллейбус № 5, что бы доехать до 3-ей Дачной.
7:50 — Еду.
8:00 — Стою на остановке на 3-ей Дачной. Теперь мне нужно сесть на маршрутку №81 или №86, или на автобус №18, 18д.
8:10 — Еду в техникум, слушаю музыку, сижу в ICQ (Мой номер, если что: 387-040-890)
8:30 — Приезжаю к техникуму. Обычно по пути с остановки захожу на 2-ую Садовую, на базар, чтобы купить Orbit Proffessional.
8:45 — Стою на крыльце техникума, либо, возле кабинета.
9.00 — Начало занятий. Первая пара. Обычно мне тяжело на первой паре, первую половину урока, о чем-нибудь думать в тему.
10:30 — Перемена.
10:40 — Начало второй пары.
12:10 — Перемена.
12:30 — Начало третьей пары.
14:00 — Окончание занятий. Иногда у нас есть четвертая пара.
14:15 — Еду домой.
15:00 — Приезжаю домой. Стараюсь сразу после приезда садиться за уроки.
18:00 — Залазию в Интернет
23:00 — Ложусь спать. Знаю, что завтра я опять проснусь не выспавшийся. И замкнутый круг продолжится…P.S. Вообще, это мой типичный день, когда у нас нет четвертой или нулевой пары. Иногда я вечером хожу гулять, но редко. Ну, вообщем, все.

S:string;
a, i, k, b, n:integer;
begin
readln(s);
readln(a);
k:=1;
for i:=1 to length(s) do begin
k:=k*val(s[i], n);
if val(s[i], n)=a then b:=b+1;end;
writeln(k);
if b=0 then writeln('yes')
else writeln('no');
readln;
end.
2
a:array[1..1000] of integer;
begin
k:=1;
for i:=100 to 999
if (((i+1) mod 2))=0) and (((i+2) mod 3)=0) and (((i+3) mod 4)=0) and (((i+4) mod 5)=0) then begin a[k]:=i; k:=k+1; end;
for i:=1 to k do
writeln(a[i]);
readln;
end.

3
s, a:string;
i, k:integer;
begin
readln(s);
readln(a);
for i:=1 to length(s) do
if s[i]=a then s[i]:='';
writeln(s);
readln;
end.