If utasítások egymásba ágyazása

if x > 0 then
  WriteLn('Pozitív)
else
  if x = 0 then
    WriteLn('Nulla')    {A három ág közül egy hajtódik végre.}
  else
    Writeln('Negatív');


{A problémát az alábbi módon is kódolhatjuk,
 mivel a három feltétel közül egyszerre csak egy áll fenn:}

if x > 0 then
  WriteLn('Pozitív);
if x = 0 then
  WriteLn('Nulla');
if x < 0 then
  Writeln('Negatív');

{Az alábbi viszont hibás megoldás:}

if x > 0 then
  WriteLn('Pozitív);
if x = 0 then
  WriteLn('Nulla')
else
  Writeln('Negatív');



{Vigyázzunk, az Else mindig a legutolsó Then párja!}

if a > 0 then
  if Not Odd(a) then
    Writeln('Pozitív, páros')
  else
    Writeln('Pozitív, páratlan');


if a > 0 then
 begin
  if Not Odd(a) then
    Writeln('Pozitív, páros')
 end
  else
    Writeln('Nem pozitív');