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