ПАСКАЛЬ
Ввести имя, отчество и фамилию. Поменять имя и отчество местами (через тип данных string) "Отчество, имя и фамилия"
Ни типо пишешь в графу: юрий сергеевич кобылкин, а оно исправляет на сергеевич юрий кобылкин

greed15: Уважаемый будьте так любезны написать код на free pascal!

Аноним: Уважаемый, нужно указывать желаемый диалект в вопросе, а не после получения ответа! Учитесь уважать чужой труд, несмотря на то, что его результаты Вам достаются бесплатно.

greed15: Труд написать 2 строчки?

greed15: И по поводу результатов 25 баллов

Аноним: В данной ситуации Вы не имеете права рассуждать о чужом труде уже хотя бы потому, что сами неспособны эти две строки ни написать, ни понять, как теперь выяснилось. И ведете себя при этом, как зарвавшийся нахал.

Аноним: Порядочные люди, получив ответ, даже если он не соответствует их ожиданиям (по их собственной вине) говорят "спасибо".

greed15: Да какие проблемы?

greed15: var
s, fam, im, ot: string;
k: integer;

begin
readln(s);
//s := 'Иванов Иван Иванович';
writeln('Длина: ', Length(s));
k := pos(' ', s);
fam := copy(s, 1, k);
delete(s, 1, k);
k := pos(' ', s);
im := copy(s, 1, k);
delete(s, 1, k);
ot := s;
writeln('Отчество: ', ot);
writeln('Имя: ', im);
writeln('Фамилия: ', fam);
end.