Курсовая работа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.