program BeginDemo;
begin
  if True then
    WriteLn ('single statement');
  if True then
    begin                     { clamp statement1 ... }
      WriteLn ('statement1');
      WriteLn ('statement2')
    end                       { ... to statement2 }
end.
