program sample;

var 
surname, name, patronymic : string;

begin
  surname := 'Иванов';
  name := 'Иван';
  patronymic := 'Иванович';
  writeln('Фамилия имя отчество: ', surname, ' ', name, ' ', patronymic, ' ');
  write('Фамилия: ');
  for var i:=1 to length(surname) do
  begin
    write(surname[i],' ');
  end;  
  writeln;
end.