Цикл foreach

var 
  a: array [1..5] of integer := (1,3,5,7,9);
  s: set of integer;

begin
  write('foreach по массиву: ');
  foreach x: integer in a do
    write(x,' ');
  writeln;  
  
  s := [2..5,10..14,77];
  write('foreach по множеству: ');
  foreach x: integer in s do
    write(x,' ');
end.