program Czy_liczba_jest_podzielna_przez_trzy;

{Mod - reszta z dzielenia}
var x:integer;
begin
   writeln('Sprawdzamy czy liczba jest podzielna przez trzy');
   writeln('Wczytaj liczbe:');
   readln(x);
   writeln;
   if (x mod 3=0) then
      writeln('Liczba jest podzielna przez trzy')
      else
      writeln('liczba nie jest podzielna przez trzy');
   readln;
end.