Запишите оператор для вычисления среднего арифметического sr переменных x1 и х2. p.s. не забывайте отделять пробелами знак "равно" и знаки арифметических действий

Клавиатура — компьютерное устройство, которое располагается перед экраном дисплея и служит для набора текстов и компьютером с клавиш, находящихся на клавиатуре. клавиатура позволяет вводить в компьютер  числовую и текстовую информацию, а также различные команды и данные. раскладка на клавиатуре придумана исходя из часто используемых комбинаций букв. так, например, буква "ё" вынесена отдельно от остальных, ибо ее используют редко. по своему назначению клавиши на клавиатуре условно делятся на основные группы: буквенно-цифровые клавиши,клавиши цифровой клавиатуры,клавиши , клавиши-модификаторы, функциональные клавиши, клавиши курсором. буквенно-цифровые клавиши также именуются алфавитно-цифровыми клавишами, клавишами данных, клавишами для ввода данных. клавиши предназначены для выполнения определенных действий. они могут использоваться отдельно или в сочетании с другими клавишами. помимо обычных клавиатур со стандартным набором данных бывают: - мультимедийные клавиатуры:   помимо стандартного набора из 104  клавиш, снабжаются дополнительными клавишами (как правило, другого размера и формы), которые предназначены для некоторыми основными функциями компьютера - программируемые клавиатуры:   разработаны клавиатуры, в которых назначение и внешний вид клавиш изменяется программным образом в зависимости от выбранного набора символов и даже от запущенного в текущий момент приложения.

Program z18;   var a: array [1..1000] of string; i,j,l,min,h: integer; s: string; begin  write('введите строку - '); readln(s);   l: =s.length;   i: = 1;   j: = 1;       while i < = l do  begin    while (s[i] < > ' ') and (i < = l) do    begin      a[j]: =a[j] + s[i];       i: = i + 1;       if (i > l) then break;     end;     j: = j + 1;     i: = i + 1;   end;       i: = 2;   min: =a[1].length;   while (a[i] < > '') do  begin    l: =a[i].length;     if (l < min) then h: = i;     i: = i + 1;   end;   writeln(a[h]); end. program z19;   var a: array [1..1000] of string; i,j,l,min: integer; s: string; begin  write('введите строку - '); readln(s);   l: =s.length;   i: = 1;   j: = 1;       while i < = l do  begin    while (s[i] < > ' ') and (i < = l) do    begin      a[j]: =a[j] + s[i];       i: = i + 1;       if (i > l) then break;     end;     j: = j + 1;     i: = i + 1;   end;       i: = 1;   while (a[i] < > '') do  begin    if ((a[i] = 'мое') or (a[i] = 'мое')) then a[i]: = 'наше';     write(a[i], ' ');     i: = i + 1;   end; end.