Паскаль.Составте программу, позволяющую ввести фимилию, имя и отчество учащегося,...

Question

Паскаль.
Составте программу, позволяющую ввести фимилию, имя и отчество учащегося, разделенные пробелом, и вывести фимилию и инициалы.

Пример ввода:
Иванов Сергей Михайлович
Пример вывода:
Иванов С.М.

Answer 1

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString.ToWords;
  Writeln(s[0]+' '+s[1].First+'.'+s[2].First+'.')
end.

Пример
Иванов Сергей Михайлович
Иванов С.М.