Question

Ex 3 (a)
Va rog mult

Answer 1

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.