Question

Вводится фамилия имя отчество, вывод имя (паскаль)

Answer 1

Var
  name, surname, patronymic : string;
begin
  write('Введите фамилию: '); readln(surname);
  write('Введите имя: ');         readln(name);
  write('Введите отчество: ');  readln(patronymic);
  writeln('Имя: ', name);
end.