Question

Ввести с клавиатуры строку.Вывести на экран 2 слово.

Answer 1

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.