Ввести с клавиатуры в одну строку фамилию, имя и отчество, разделив их пробелом. Вывести фамилию и инициалы.
Пример:
Иванов Петр Семёнович
П. С. Иванов
Исходный код на языке Pascal
var
s, k, m: string;
n, i: integer;
begin
writeln('Введите фамилию, имя, отчество');
read(s);
n := pos(' ', s);
k := s[n + 1] + '.';
m := copy(s, 1, n - 1);
s[n] := '1';
i := pos(' ', s);
k := k + s[i + 1] + '.';
write(k, m);
end.
