RosettaCodeData/Task/Conditional-structures/Pascal/conditional-structures-1.pas

IF condition1 THEN
  procedure1
ELSE
  procedure3;

IF condition1 THEN
  BEGIN
    procedure1;
    procedure2
  END
ELSE
  procedure3;

IF condition1 THEN
  BEGIN
    procedure1;
    procedure2
  END
ELSE
  BEGIN
    procedure3;
    procedure4
  END;