Дано трехзначное число. определить является ли средняя цифра делителем суммы первой и последней цифр

var x,i,x1,x2,x3: integer

s: string;

begin

  read(x);

  s: =str(x);

  x1: =int(s[1]);

  x2: =int(s[2]);

  x3: =int(s[3]);

  if (x1+x3)mod x2=0 then writeln("да")

  else writeln("нет");

end.

1)  program n1;   var n,i: integer;   t: array[1..100] of real;   a,b: real;   begin  readln(n);   readln(a);   readln(b);   for i: =1 to n do  begin  t[i]: =(b-a)/n;   write(t[i],'   ');   end;   end.2)  program n1;   var a: array[1..100] of integer;   n,i: integer;   k: real;   begin  read(n);   k: =0;   for i: =1 to n do  read(a[i]);   for i: =1 to n do  if a[i] mod 2 < > 0 then  k: =k+1;   writeln;   writeln('кол-во нечет. чисел равно ',k,'');   end.6)  program n1;   var a: array[1..100] of real;   i,n: integer;   s,sr: real;   begin  read(n);   for i: =1 to n do  read(a[i]);   s: =0;   sr: =0;   for i: =1 to n do  s: =s+a[i];   sr: =s/n;   writeln('сред. арифметическое равно ',sr,'');   end.7)    program n1;   var a: array[1..100] of real;   i,n: integer;   min,max: real;   begin  read(n);   for i: =1 to n do read(a[i]);   min: =a[1];   for i: =2 to n do  if a[i]< min then  min: =a[i];   max: =a[1];   for i: =2 to n do  if a[i]> max then  max: =a[i];   writeln('максимальный элемент равен ',max,'');   writeln('минимальный элемент равен ',min,'');   end.8)  program n1;   var a: array[1..100] of real;   i,n: integer;   min,max,nom1,nom2: real;   begin  read(n);   for i: =1 to n do  read(a[i]);   min: =a[1];   nom1: =1;   for i: =2 to n do  if a[i]< min then  begin  min: =a[i];   nom1: =i;   end;   max: =a[1];   nom2: =1;   for i: =2 to n do  if a[i]> max then  begin  max: =a[i];   nom2: =i;   end;   writeln('максимальный элемент равен ',max,', его номер ',nom2,'');   writeln('минимальный элемент равен ',min,', его номер ',nom1,'');   end. 9)  program n1;   var a: array[1..100] of real;   i,n: integer;   min,max,s,sr: real;   begin  read(n);   randomize;   for i: =1 to n do  begin  a[i]: =random(100)+1;   write(a[i],'   ');   end;   writeln;   s: =0;   sr: =0;   for i: =1 to n do  s: =s+a[i];   sr: =s/n;   writeln('ср. арифм. = ',sr,'');   min: =a[1];   for i: =2 to n do  if a[i]< min then  min: =a[i];   max: =a[1];   for i: =2 to n do  if a[i]> max then  max: =a[i];   writeln('максимальный элемент равен ',max,'');   writeln('минимальный элемент равен ',min,'');   end.

Объективность= эти брюки стоят три тысячи рублейнеобъективность= эти брюки дорого стоят достоверность= все ныне живущие люди умрутнедостоверность=люди бессмертны полнота= ира, моя родная сестра, приехала погостить на пару днейнеполнота=девушкаактуальность=на вашем счёте 2 рублянеактуальность=в 1894 на счёте вашего прапрадедушки было семь шекелейценная информация=хорошо написанная статья о том как вылечить больную печень. эта информация ценна для пьяницыне ценная=та же статья но для здорового шахтёра в уральских горах ценна не будетпонятная информация=в долларе 56,89 рублянепонятная информация=ドル56.89ルーブル