Бағдарламалау жүйелері» анықтамасын жазады; ​

***первая *** var a: array [1..100]of integer; n,i,fl,sum,len: integer; s : string; begin  writeln('введите n') ;   readln(n);                   for i: =1 to n do                  readln(a[i]);   sum: =0;   fl: =0;                   for i: =1 to n do                  begin                  str(a[i], s);                   len: =length(s);                     if ((a[i]mod 6=0)and(s[len]='4')) then                        begin                          sum: =sum+a[i];                           fl: =1;                         end;                   end; if (fl=1)then writeln('сумма=',sum); if(fl=0) then writeln('нет'); end. ****тестовый ввод **** 5 24 1 1 24 3 **** вывод сумма = 48 ***** вторая. пометка ! ввод нуля останавливает программу (исходя из условия оканчивающихся на 0)******** var i,max,fl: integer; begin i: =1; max: =0; fl: =0;         while(i< > 0) do         begin           readln(i);           if((i mod 3=0)and(i> max)) then               begin               max: =i;               fl: =1;               end;           end; if (fl=1) then writeln('максимальный =',max); if (fl=0) then writeln('нет'); end. ****тестовый ввод **** 3 4 9 8 6 0 **** вывод максимальный = 9

Const n=4; var y : array[1..n,1..n] of integer;       t : array[1..n] of integer;     i,j : integer; begin randomize;   for i: =1 to n do   begin   for j: =1 to n do     begin     y[i,j]: =random(20)-10;     write(y[i,j]: 4);     end;   writeln;   end;   for i: =1 to n do t[i]: =y[i,i]; writeln('полученный массив: '); for i: =1 to n do   write(t[i]: 5);   writeln; end.