100 ! прошу с таблицей по обработке звуковой информации, прошу все указать с решением(файл во вложении)

сложна

Var x,y,z: integer; begin write('введите x, y, z: '); readln(x,y,z); if (x mod 4=0) and (y mod 4=0) and (z mod 4=0) then       begin       x: =x*2;             y: =y*2;       z: =z*2       end       else           begin           x: =-x;           y: =-y;           z: =-z           end; writeln(x,' ',y,' ',z) end.

Описание n-константа(столбцы) m-константа(строки) объявляем массив "а"  из (1..n,1..m) элементов k,i-целые числа х-вещественное объявляем массив "б" из (1..n) элементов начало для i от 1 до n делай для k от 1 до м делай начало считай (х) а(i,k)=х конец  k=1для i от 1 до м делай начало если (a(i,k)=0) и (а(i,k+1)=0) и т.д. и (а(i,k+19)=0) то печатай i выход из для(break если бы в паскале, вырубает цикл) конец если i=11 то  печатай "строки нету" конец. заморочисто точнее писать щас придумаю что-нибудь