Какое значение примет переменная х после выполнения оператора x: =17 mod 5 ответ плз пож

Mod - остаток от деления. 17/5=3 и остаток 2.
ответ: 2

1 программа:

var x, y, t:integer;

begin

 for x:=3 to 15 do begin

   writeln('x = ', x);

   t := x - 2;

   y := 7*t*3-6*t+10;

   writeln('y = ', y);

   writeln('');

 end;

end.

2 программа:

const pass ='45xlua';

var x:string;

a:boolean;

begin

 a:= false;

 while a<>true do begin

    writeln('Введите пароль');

    readln(x);

    if x = pass then begin

      a:=true;

      writeln('Пароль верный');

      end

    else

      writeln('Пароль неверный, введите еще раз');

    writeln('');

 end;

end.

4 программа:

var a, a1, a2, x, kol:integer;

begin

writeln('Введите четырёхзначное число');

readln(a);

x := a;

while x<>0 do begin

  x:= x div 10;

  kol:= kol + 1;

  end;

 if (kol = 4) then begin

   a1 := a div 100;

   a2:= a mod 100;

   writeln(a1+a2);

 end

  else

    writeln('Число не является четырёхзначным');

end.

Const  amax=20;
var  a: array[1..amax,1..amax] of integer; 
i,j,k,n,m: byte;
begin 
write('Введите размеры массива(матрицы (<20)):'); 
 readln(n,m); 
 writeln('Массив(матрица):');
  for i:=1 to n do  begin   
 for j:=1 to m do    begin      a[i,j]:=random(99)+1;   
  write(a[i,j]:4);   
 end;   
 writeln; 
 end; 
 writeln('Кол-во четных элементов по колонкам:'); 
 for j:=1 to m do 
 begin   
 k:=0;   
 for i:=1 to n do   
  if odd(a[i,j])=false then inc(k);   
writeln('В ',j,' столбце ',k); 
 end; 
 writeln('Конец программы!');
end.