Проверенно
program zm;
var
a: integer;
bool: boolean;
begin
Readln(a);
bool := true;
if a = 5 then
writeln('true') end ;
if a > 5 then
writeln('false') end ;
if a < 5 then
Writeln('false') end ;
end.
Проверенно
program zm;
var
a: integer;
bool: boolean;
begin
Readln(a);
bool := true;
begin
if a = 5 then
writeln('true') end ;
begin
if a > 5 then
writeln('false') end ;
begin
if a < 5 then
Writeln('false') end ;
end.