Решение задачи String 40

#include <bits/stdc++.h>

using namespace std;

int main()
{
    string s;
    getline(cin, s);
    int pos = s.find(" ");
    int pos1 = s.rfind(" ");
    if(pos1 + 1 && pos != pos1){
        cout << s.substr(pos + 1, pos1 - pos);
    }
    return 0;
}

program String40;
var
 S:string;
 poz1,poz2,i:integer;
 
function miror(S:String):String;
var
 i: integer;
 S2:String;
begin
 S2:='';
 for i:=1 to Length(S) do S2:=S2+S[Length(S)-i+1];
 miror:=S2;
end;
 
begin
 Write('S:');
 Readln(S);
 
 poz1:=pos(' ',S);
 
 poz2:=length(s)-pos(' ',miror(S))+1;
 
 Writeln(poz1,' ',poz2);
 Writeln(copy(S,poz1,poz2-poz1));
end.