pascalabcnet/_Presentations/2015 New Features/Programs/03_case_string-1.pas

var Country: string;

begin
  read(Country);
  write('Столица: ');
  
  if Country = 'Россия' then
    writeln('Москва')
  else if Country = 'Франция' then
    writeln('Париж')
  else if Country = 'Италия' then
    writeln('Рим')
  else if Country = 'Германия' then
    writeln('Берлин')
  else writeln('Нет в базе данных'); 
end.