PROGRAM BeginEndExample(Output);
    { Program 4.1 - Illustrate the compound statement. }
    VAR
        Sum: Integer;
BEGIN
    Sum := 3 + 5;
    WriteLn(Output, Sum, -Sum : 3);
END.