Какое значение примет переменная х после выполнения следующих операторов при значениях а 1.2.4.5.6​

1. Что такое модель?
Модель — упрощенное представление о реальном объекте, процессе или явлении.

1. Назовите основные свойства моделей. 
Модели воспроизводят существенные свойства оригинала. 
Одному объекту могут соответствовать несколько моделей.
Вид модели определяется целью моделирования.

2. Что такое моделирование?
Процесс создания модели.

3. Как можно назвать отношения между объектом-оригиналом и его моделью?
Модель — уменьшенная копия оригинала.

4. Какие модели называют натурными? Приведите 2-3 примера натурных моделей. 
Натурные модели — модели, воспроизводящие свойства прототипа. Примеры: манекен — модель человека, корабль в бутылке — модель настоящего корабля.

5. Какие модели называют информационными? Приведите 2-3 примера информационных моделей. 
Информационные модели — модели, описывающие свойства прототипа. Примеры: схема компьютера, описание природы.

6. Для каждой из перечисленных моделей назовите действия, которые человек может выполнить и с ней, и с  объектом-оригиналом: 
1) радиоуправляемая модель самолета;
* смотреть на объект
* сжечь
* управлять полётом

2) словесное описание куртки;
* представить
* обсудить

3) план квартиры;
* представить
* обсудить

4) чайник из пластилина в натуральную величину;
* смотреть
* фотографировать

5) мысленное представление о будущей поездке.  
* размышлять

Какие действия могут быть выполнены только с оригиналом?
1) залесть внутрь
2) надеть
3) зайти, жить внутри
4) кипятить воду
5) отдохнуть, сделать фотографии

const n=10;
var
  i,k,min,max:integer;
  x,y:array[1..n]of integer;
  z:array[1..2*n]of integer;

function four(n:integer):string;
var s:string;
begin
repeat
  s:=s+IntToStr(n mod 4);
  n:=n div 4;
  until n=0;
result:=ReverseString(s);
end;

begin
for i:=1 to n do
  begin
  x[i]:=random(-10,10);
  y[i]:=random(-10,10);
  if (x[i] mod 2=0) and (x[i]>0) then
    begin
    k:=k+1;
    z[k]:=x[i];
    if k=1 then
      begin
      min:=z[1];
      max:=z[1];
      end;
    if z[k]>max then max:=z[k];
    if z[k]<min then min:=z[k];
    end;
  if (y[i] mod 2=0) and (y[i]>0) then
    begin
    k:=k+1;
    z[k]:=y[i];
    if k=1 then
      begin
      min:=z[1];
      max:=z[1];
      end;
    if z[k]>max then max:=z[k];
    if z[k]<min then min:=z[k];
    end;
  end;
write('Массив X:');
for i:=1 to n do write(x[i]:4);
writeln;
write('Массив Y:');  
for i:=1 to n do write(y[i]:4);
writeln;
write('Массив Z:');  
for i:=1 to k do write(z[i]:4);
writeln;
write('Измененный массив Z:');
for i:=1 to k do
   begin
   if z[i]=min then z[i]:=max
     else
     if z[i]=max then z[i]:=min;
   write(z[i]:4);
   end;
writeln;
write('Массив Z по основанию 4:');  
for i:=1 to k do   write(four(z[i]):4);
end.