Вопрос относящийся к теме "устройство информационных систем". какие средства ис использует для работы с информацией?

Program kvadrat; var l,i,j: integer; begin  write('l= ');   readln(l);   if l< =10000 then    for i: =1 to l do      begin      for j: =1 to l do        begin          if ((i=1) or (i=l)) or ((j=1) or (j=l)) then            write('*')          else            write(' ');         end;       writeln;     end; end. вроде все правильно написал

Var   a: array[1..10, 1..10] of integer;   i, j, n: integer;     begin   write('enter n: '); readln(n);   for i : = 1 to n do   begin     for j : = 1 to n do     begin       if i < > j then         a[i, j] : = 0       else if i < = n div 2 then         a[i, j] : = i       else         a[i, j] : = n - i + 1;       write(a[i, j], ' ');     end;     writeln();   end; end.