uses crt;
Type cont=(USA, Africa, Europe, Asia);
     strana=(Rossia, Canada, Algeria, China);
Const continent:array[0..3] of string=
             ('Америка', 'Африка', 'Европа', 'Азия');
      stranu:array[0..3] of string=
              ('Канада', 'Алжир', 'Россия', 'Китай');
var con: cont;
    st: strana;
    k:byte;
begin
clrscr;
writeln('Выберите континент 0-Америка 1-Африка 2-Европа 3-Азия');
repeat
readln(k);
until k in [0..3];
con:=cont(k);
st:=strana(ord(con));
writeln('Континент:',continent[ord(con)]);
writeln('Страна:',stranu[ord(con)]);
readln
end.

Type cont=(USA, Africa, Europe, Asia);
strana=(Russia, Canada, Algeria, China);
var c:cont;
n:Integer;
Begin
 Writeln('Введите номер континента 0-Америка 1-Африка 2-Европа 3-Азия');
 Read(n);
 Case n of
 0:c:=USA;
 1:c:=Africa;
 2:c:=Europe;
 3:c:=Asia;
 end;
 write('Страна:');
  case c of
  USA:write('Канада');
  Africa:write('Алжир');
  Europe:write('Россия');
  Asia:write('Китай');
  end;
end.