Răspuns:
program Expresia;
type Continente=(Europa,Asia,AmericaDeNord,AmericaDeSud,Australia,Antarctida);
var c:Continente;
begin
for c:=Europa to Antarctida do begin
write(c,' ',ord(c), ' ');
writeln;
end;
readln;
end.