Pascal
Объяснение:
program imya;
var
name: string;
gender: integer;
begin
Write('Укажите Ваш пол (1 - муж, 2 - жен): ');
ReadLn(Gender);
if gender = 1 then
begin
Write('Введите любимое женское имя: ');
ReadLn(name);
end
else
begin
Write('Введите любимое мужское имя: ');
ReadLn(name);
end;
end.
