7 lines
148 B
Text
7 lines
148 B
Text
|
procedure printlogic(a, b: boolean);
|
||
|
|
begin
|
||
|
|
writeln('a and b is ', a and b);
|
||
|
|
writeln('a or b is ', a or b);
|
||
|
|
writeln('not a is', not a);
|
||
|
|
end;
|