Bài 1:

Program BTT;
Uses crt;
Var a: longint;
Begin
        Clrscr;
        Write('Nhap a: '); Readln(a);
        If a mod 3 = 0 then Write(a,' chia het cho 3')
        Else Write(a,' khong chia het cho 3');
        Readln
End.

Bài 2:

Program BTT;
Uses crt;
Var a: longint;

Function ngto(a: longint): boolean;
Var i: longint;
Begin
        If a<2 then exit(false);
        For i:=2 to a div 2 do
                If a mod i = 0 then exit(false);
                                    exit(true);
End;

Begin
        Clrscr;
        Write('Nhap a: '); Readln(a);
        If ngto(a) then Write(a,' la so nguyen to')
        Else Write(a,' khong phai so nguyen to');
        Readln
End.

Bài 1:

program bai_giai;
var a:integer;
begin
    clrscr;
    readln(a);
    if a mod 3=0 then write('chia het')
        else write('khong chia het');
    readln;
end.

Bài 2:

program bai_giai;
uses crt;
var a,i,d:integer;
begin
    clrscr;
    readln(a);
    d:=0;
    for i:=2 to a div 2 do
        if a mod i=0 then d:=d+1;
    if d=0 then write('La so nguyen to')
        else write('Khong phai so nguyen to');
    readln;
end.