6 lines
148 B
Text
6 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;
|