[pesi]

Код:

function CityName(i:integer):string;
begin
  case i of
    1: Result:= 'Египет';
    2: Result:= 'Турция';
    3: Result:= 'Китай';
    4: Result:= 'Россия';
    5: Result:= 'Грузия';
  else
    Result:= 'Not city name';
  end;
end;