Помогите составить блок-схему( Basiс)

Матрица, размещена в динамической памяти

1)Сколько информации содержит в себе сообщение о том, что на поле 4х4 клетки одна из клеток закрашена?

2) В книге 512 страниц. Сколько информации несет сообщение о том, что закладка лежит на какой-либо странице?

у= если x<-3 то
y= √1 - x²
если 1,5<x-3, то
y= в числителе 1 в знаменателе модуль x +2
если x>1,5, то
y=tg x
Составить словесное описание алгоритма, составить блок схему, описать используемые элементы

2)построить блок схему которая меняет порядок цифр числа на обратный. например было 12345,стало 54321.

program sdasdas;
var
a:array [1..10] of integer;
p,i:integer;
begin
randomize;
for i:=1 to 10 do
a[i]:=random(495)+5;
p:=1;
begin
for i:=1 to 10 do
if (a[i] mod 3=0) or (a[i] mod 9=0) then p:=p*a[i];
writeln('Произведение =',p);
end;
readln;
end.