Question

Помогите с паскалем!
Нужно сделать одну любую задачу.

Answer 1

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  var s:=ReadlnString('Введите строку:').ToUpper.
    TakeWhile(c->c<>'.').Where(c->c in ['A'..'Z']);
  var d:=new dictionary<char,integer>;
  foreach var c in s do d[c]:=d.Get(c)+1;
  var d1:=d.OrderByDescending(k->k.Value).ThenBy(k->k.Key);
  var r:=d1.ElementAt(0);
  Println(r.Key,r.Value)
end.

Тестовое решение:
Введите строку: It is not a simple task. Yes!
I 3