паскаль: Дана последовательность из n символов. Выяснить, в какой половине...

Question

паскаль:
Дана последовательность из n символов. Выяснить, в какой половине последовательности, в первой или во второй, больше вопросительных знаков. (Не исключается случай равенства).

Answer 1

// PascalABC.NET 3.0, сборка 1128
begin
  var s:=ReadString('Введите строку:');
  var d1:=Copy(s,1,s.Length div 2).Where(x->x='?').Count;
  var d2:=s.Where(x->x='?').Count-d1;
  if d1>d2 then Writeln('В первой половине больше "?"')
  else
    if d1    else Writeln('Поровну "?"')
end.

Тестовое решение:
Введите строку: 54ttge5t?getg5??ee4t3t?#43t4gfdaf?ss?sfsf?sfse
В первой половине больше "?"