Так как из условия задачи последняя буква в названии города должна быть гласная, то из представленных вариантов подходит только Сочи.
Ответ: 5
Var
a:array[1..10]of integer;
i,n:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(10)+1;
write(a[i],'; ');
end;
for i:=1 to 9 do
if a[i]<a[10] then
begin
n:=i;
break;
end;
writeln;
write('Ответ: ');
if n>0 then writeln(a[n]) else writeln(n);
<span>end. </span>
Var
a:integer;
begin
read(a);
while(a <> 0) do
begin
write(a mod 10);
a := a div 10;
end;
<span>end.</span>
#include <iostream>
using namespace std;
int main(){
int a,b,c,d,o=0;
cin>>a>>b>>c>>d;
for (int i=10000; i<=99999;i++)
if (i % a ==b && i % c == d)
{
cout<<i<<' ';
o=1;
}
if (o==0)
cout<<-1;
}
===== PascalABC.NET =====
begin
ReadlnString.Select(c -> 2 * c).Println('')
end.