Составьте алгоритм в виде блок-схемы и программу для определения делится ли заданное число на 5.

Так на пример чтоб совершить какой либо алгоритм ты его предстовояешь сегодня сделал много алгоритмов например с утра что ты делаешь
1. открываешь глоза
2.встаешь
3.одеваешь тапочки
4.встоешь с кровати
5.запровляешь кровать
6.идёшь в вану
7.принимаешь душ
8.чистиш зубы
9.вытираешься
10.одеваешься
11.идеш на кухню
12.береш чайник
13.идёшь к воде
14.включаешь воду
15.подстовляешь чайник
16.ждешь пока набирается вода
17.выключаешь воду
18.идеш к плите
19. ставишь чайник
20.зажигаешь спичку
21.включаешь газ
22.подносишь спичку
23.ждешь воду
и т.д
)

Program vasha_zadacha_1;var b,c:integer; 
 a:array [1..20] of integer; 
begin 
randomize; 
b:=0; 
for c:=1 to 10 do begin   
a[c]:=random(0,99);   
writeln('элемент массива ==>', a[c]); 
  if (a[c] mod 2 = 0) then b:=b+a[c]; 
 end; 
writeln('сумма чётных элементов массива', b); 
end.

program vasha_zadacha_2;
var b,c:word ; 
a:array [1..20] of integer; 
begin 
randomize; 
b:=1; 
for c:=1 to 10 do begin   
a[c]:=random(0,99); 
 writeln('элемент массива ==> ', a[c]); 
 b:=b*a[c];   
end; 
 writeln('произведение всех элементов массива ', b); 
end.

program vasha_zadacha_3;
var b,c:word ; 
a:array [1..20] of integer; 
begin 
randomize; 
b:=0; 
for c:=1 to 10 do begin   
a[c]:=random(0,99);   
writeln('элемент массива ==> ', a[c]);   
if (a[c] >= 50) and (a[c]<=60) then b:=b+a[c];   
end; 
writeln('сумма элементов в диапазоне от 50 до 60 ', b); 
end.