Составить кроссворд по теме "текстовый редактор и текстовый процессор" (10 слов

Используй слова : раскладка ; кодировка ; правка ; формат ; кирилица ; строка ; печать

Var       i, count, number: integer; begin       count : = 0;       i : = 0;       writeln('введите последовательность чисел');       repeat               readln(number);               if (number > = 100) and (number < = 999) and (number mod 4 = 0) then                       count : = count + 1;               i : = i + 1       until (number = 0) or (i > = 1000);             writeln('кол-во 3значных чисел кратных 4 =', count); end.

Const n=4;       m=3; var a: array[,] of integer;     b: array of integer;     i,j,k: integer; begin   setlength(b,n*m);   setlength(a,n,m);   randomize;   writeln('исходный массив: ');   for i: =0 to n-1 do   begin     for j: =0 to m-1 do       begin          a[i,j]: =random(-10,10);         write(a[i,j]: 4);       end;       writeln;   end;   // удаление строк массива     k: =0;   for i: =0 to n-1 do     if a[i,0]< =a[i,m-1] then     begin       k: =k+1;       for j: =0 to m-1 do        b[(k-1)*n+j]: =a[i,j];     end; // печать нового массива       writeln('новый массив: ');     setlength(a,k,m);   for i: =0 to k-1 do   begin     for j: =0 to m-1 do     begin       a[i,j]: =b[i*n+j];       write(a[i,j]: 4);     end;         writeln;   end;   end.исходный массив:   -3   5   -5     2   3   5   -8   3   -2     3   -4   -7 новый массив:     2   3   5   -8   3   -2