Ответы и объяснения

  • Kitsu
  • почетный грамотей
2012-12-07T17:51:18+00:00

var a:string;

begin

readln(a);

a:=copy(a,pos(' ',a)+1,length(a)-pos(' ',a));

a:=copy(a,1,pos(' ',a));

writeln(a);

end.