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

По бокам коробки кругленькие кнопки.
Тут же рядом, в уголке ручка с трубкой на шнурке.
Без языка говорит, прекрасно слышит без ушей.(телефон) 
Под крышей — четыре ножки, а на крыше — суп да ложки.(стол)
Маленькая, плоская, в компьютер вставляется,
Тут же сказки, и подсказки, даже фото появляются!( Дискета)
С листьями, но не растение.Сшита, но не одежда.Много о людях знает, но не детектив.(Записная книжка)
Маленькие зверьки, серенькие шубки.
Длинные хвосты, черненькие глазки, остренькие зубки.(мышь)
Про школу не знаю

1. Для матрицы 3* 3 обнулить все элементы с четным значением. Результат вывести на экран.
uses crt;
const n=3;
var a: array [1..n,1..n] of integer;
     x,y: integer;
begin
     for x:=1 to n do begin
         for y:=1 to n do begin
             a[x,y]:=random(21)-10;
             write(a[x,y]:4);
             if a[x,y] mod 2=0 then a[x,y]:=0;
         end;
         writeln;
     end;
     writeln;
     for x:=1 to n do begin
         for y:=1 to n do
             write(a[x,y]:4);
         writeln;
     end;
end.

2. Для матрицы 3*3 целых чисел найти индексы элементов с нулевым значением. Результат вывести на экран.
uses crt;
const n=3;
var a: array [1..n,1..n] of integer;
    x,y: integer;
begin
     for x:=1 to n do begin
         for y:=1 to n do begin
             a[x,y]:=random(21)-10;
             write(a[x,y]:4);
         end;
         writeln;
     end;
     writeln;
     for x:=1 to n do
         for y:=1 to n do
             if a[x,y]=0 then writeln(x,',',y);
end.