с вопросами по IТ 1) При определении сетевых параметров рабочей станции средствами Windows XP и Windows 7 будут ли они иметь одинаковые значения? Если нет-то в чем будет разница?
2) Может ли пользователь изменить физический адрес и, если да, то как?
3) Может ли изменить физический адрес компьютера пользователя администратор сети?
4) Может ли изменить доменное имя компьютера пользователь?

Const
  n = 10;
var
  matrix : array [1..n] of array [1..n] of integer;
  i, j, max : integer;
begin
  {формирование матрицы}
  for j := 1 to n do
  begin
    if j <= Trunc(n / 2) then       {находим последний индекс для вставки 1}
      max := j       
    else
      max := n - j + 1;
    for i := 1 to max do                          {заполняем линию единицами}
    begin
      matrix[j][i] := 1;
      matrix[j][n - i + 1] := 1;
    end;
  end;
  {вывод матрицы (если не нужно, удалите код)}
  for j := 1 to n do
  begin
    for i := 1 to n do
      write(matrix[j][i], ' ');
    writeln;
  end;      
end.  

Program ten;
const n=2;
Var a,b,c,d,e,f,p:integer;
Begin 
Write ('Введите число a '); Read(a);
Write ('Введите число b '); Read(b);
Write ('Введите число c '); Read(c);
Write ('Введите число d'); Read(d);
Write ('Введите число e '); Read(e);
Write ('Введите число f '); Read(f);
p:=0;
If a mod n = 0 Then P:=p+1;
If b mod n = 0 Then P:=p+1;
If c mod n = 0 Then P:=p+1;
If d mod n = 0 Then P:=p+1;
If e mod n = 0 Then P:=p+1;
If f mod n = 0 Then P:=p+1;
Write ('количество четных чисел = ',p);
end.
 Вот так, программа работает.