{ Автор: Винарский Евгений <[email protected]>, 112 гр.}
program t_11_14(input,output);

type
  страна = (Австрия, Гана, Италия, Перу, США, Швеция);
  континент = (Америка, Африка, Европа);

var
  x, y: страна;
  t: boolean;

function конт(s: страна): континент;
begin
  case s of
    Перу, США: конт := Америка;
    Гана: конт := Африка;
    Австрия, Италия, Швеция: конт := Европа
  end;
end;

begin
  t:= конт(x)=конт(y);
  write(t);
end.