program pr;vars,n:string;c:char;i:integer;beginwriteln('Введите имя и фамилию в одной строке');readln (s);i:=1;while s[i]<>' ' do i:=i+1;n:=copy(s,1,i-1);writeln(n);readln;end.