Курсовая работа2 / Examples / logic

var a: boolean;
i: integer;
y: integer;
begin

a := TRUE and FALSE;

if a then
write('true')
else
write('false');
writeln;

a := FALSE or FALSE;

if a then
write('true')
else
write('false');
writeln;


for y := 1 to 5 do begin
for i := 1 to 2 do begin
a := not a;
if a then
write('true')
else
write('false');
writeln;
end;
end;

end.