Detalles:
(* Orden compuesta dentro de un "for" *)
for x := 1 to 10 do
begin
Write(x*2);
Write(' ');
end;
(* Orden compuesta dentro de un "if" *)
if primero < segundo then
begin
temp := primero;
primero := segundo;
segundo := temp;
end;