(3 ĐIỂM)PROGRAM VD2;USES CRT;VAR X

Câu 1: (3 điểm)

Program VD2;

Uses crt;

Var x: integer;

Begin Clrscr;

Write('nhap mot so:');

Readln(x);

If x mod 3=0 then write(' chia het cho 3.')

Else write(' khong chia het cho 3.');