If Else In Pascal

Here's a code on how to write a decision programs.

Program Sleeping;

uses wincrt;

var

    sleep : boolean;

begin

    sleep := true;

    if (not sleep) then

    begin

        writeln('Lady gaga still sleep');

        writeln('So please keep silent');

    end

    else

    begin

        writeln('You can do what you want');

        writeln('And this is a free area');

    end;

end.

If Else In Pascal