Напишите программу, которая получает на вход строку типа "иван иванович иванов"(иоф), а выводит строку типа "иванов иван иванович"(фио)

ответ:

uses crt;

var s,s1,s2: string;

begin

s: ='"юрий борисович пупорев""иван иванович иванов""петр петрович петров""арам арамович арамов"';

writeln(s);

s2: ='';

while pos('"',s)> 0 do

begin

  delete(s,1,1);

  s2: =s[1]+'.';

  delete(s,1,pos(' ',s));

  s2: =s2+s[1]+'.';

  delete(s,1,pos(' ',s));

  s1: =copy(s,1,pos('"',s)-1);

  insert(s1+' ',s2,1);

  delete(s,1,pos('"',s));

  writeln(s2);

end;

end.

объяснение:

я так понимаю нужно нарисовать рисунки рыб, карасей и различных животных. множества нужно перекрестить(множество рыб и хищ. животных), так как рыба тоже может быть хищником