Program anton4nk;
uses crt;
var x, y : string;
begin
clrscr;
writeln('Введите имя и фамилию.');
readln(x,y);
writeln(x);
end.
Если я правильно конечно понял задачу. Если нет, отпиши.
