Вопрос 1: В каком городе проводились олимпийские игры?

Вопрос 2:
Сколько раз, начиная с 1964 года, Олимпийские игры проводились в Северной Америке?

Вопрос 3:
Запишите три азиатских города, которые были выбраны Олимпийских игр, начиная с 1964 года.
​

Вопрос 1:

Мюнхен

Вопрос 2:

4 раза

Вопрос 3:

Токио, Сеул, Пекин.

Var s: string; m,mn,m1,m2: set of char; i,k,l: integer; begin writeln('введите последовательность слов: '); readln(s); m: =['б','б','в','в','г','г','д','д','ж','ж','з','з','й','й','л','л','м','м','н','н','р','р']; k: =0; for i: =1 to length(s) do   if not (s[i] in ['а'..'я','а'..'я',' ','.']) then k: =k+1; if k> 0 then writeln('ошибка ввода') else begin   while pos('  ',s)> 0 do delete(s,pos('  ',s),1);   if s[length(s)]='.' then s[length(s)]: =' ';   k: =0; mn: =[]; m1: =m; m2: =m;   for i: =1 to length(s) do   begin   mn: =mn+[s[i]];   if s[i]=' ' then     begin     k: =k+1;     if k mod 2=1 then m1: =m1*mn else m2: =m2*mn;     mn: =[];     end;   end;   mn: =m1-m2;   print(mn);       end; end. пример: введите последовательность слов: напечатать в    алфавитном порядке    звонкие буквы. {н}