program chia_het;
uses crt;
var n: real;
begin
clrscr;
writeln('nhap so n:'); readln(n);
if (n mod 3)=0 then writeln(' chia het cho 3:')
else writeln(' k chia het:');
readln;
end.
var N:integer;
begin
readln(N);
if N mod 3=0 then write('Chia het') else write('k chia het').
end.
Đại loại tke:)))