Оператор Write ('sister');выводит на экран :1)sister2)Write ('sister');3)'sister'4)Write(' ')5)door​​

Объяснение:

Выводит на экран sister 1 вариант ответа

Sister

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var s:=ReadLines('in.txt').ToArray;
  var n:=StrToInt(s[0]);
  var a:=s[1].ToWords.Select(e->StrToInt(e)).ToArray;
  var f:=OpenWrite('out.txt');
  Writeln(f,n,' - (кол-во чисел)');
  foreach var e in a do Write(f,e,' '); Writeln(f);
  Writeln(f,'Среднее значение четных ',
    a.Where(x->x.IsEven).Average);
  Writeln(f,'Среднее значение нечетных ',
    a.Where(x->x.IsOdd).Average);
  f.Close
end.

Файлы in.txt и out.txt находятся во вложении.

Содержимое файла out.txt:
15 - (кол-во чисел)
-22 49 33 47 -10 -1 20 -18 2 21 2 -25 21 -47 -36
Среднее значение четных -8.85714285714286
Среднее значение нечетных 12.25

1 задача.
var a, b, c: integer;
begin
  write('Введите через пробел три числа: ');
  readln(a, b, c);
  if (a > b) then
    if (b > c) then
      write('Сумма двух наибольших чисел: ', a + b)
    else
      write('Сумма двух наибольших чисел: ', a + c)
  else
    if (c > a) then 
      write('Сумма двух наибольших чисел: ', c + b)
    else
      write('Сумма двух наибольших чисел: ', b + a)
end.

2 задача.
var x, f: real;
begin
  write('Введите значение x: ');
  readln(x);
  if (x > 0) then
    f := (2 - x) / (x * x)
  else
    f := 6 - (x * x * x);
  writeln('Значение функции при данном x: ', f)
end.

3 задача.
var a, b: integer;
  write('Введите через пробел два числа: ');
  readln(a, b);
  writeln('Сумма чисел: ', a + b);
  writeln('Разность чисел: ', a - b);
  writeln('Произведение чисел: ', a * b)
end.