Logikai típus - példaprogram

program Logikai;
uses Crt;
var b: boolean;
    a: byte;
begin
  ClrScr;
  Write('Kérek egy számot: ');
  ReadLn(a);
  b := a mod 3 = 0;
  if b then 
    WriteLn(a,' osztható 3-mal)
  else
    WriteLn(a,' nem osztható 3-mal);
  ReadLn
end.