Var
name, surname, patronymic : string;
begin
write('Введите фамилию: '); readln(surname);
write('Введите имя: '); readln(name);
write('Введите отчество: '); readln(patronymic);
writeln('Имя: ', name);
end.
я думаю Инна наверное
Объяснение:
Оля: Разбила Инна
Надя: да, Оля права
Коля: Это либо Ира, либо Инна