Скачиваний:
11
Добавлен:
01.05.2014
Размер:
382 б
Скачать
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.
Соседние файлы в папке Examples