Program exemplu;var a,n:longint;beginwriteln('Dati numarul N:');readln(n);a:=n mod 10;if a mod 3=0thenwriteln('Ultima cifra a numarului "',n,'" este "',a,'" si este divizibila cu 3!')elsewriteln('Ultima cifra a numarului "',n,'" este "',a,'" si nu este divizibila cu 3!');readln;end.