Bài 1:

program oken;
uses crt;
var a:longint;
begin
        clrscr;
        write('nhap 1 so nguyen bat ky: '); readln(A);
        if a mod 2=0 then
                writeln('so du cua ',a,' khi chia 3: ',a mod 3)
        else
                writeln('so nguyen cua ',a,' khi chia cho 2: ',a div 2);
        readln;
end.

Bài 2:

program oken;
uses crt;
var a: array [1..3] of longint;
    i,min:longint;
begin
        clrscr;
        for i:=1 to 3 do
                begin
                        write('nhap so thu ',i,': ');
                        readln(a[i]);
                end;
        min:=a[1];
        for i:=2 to 3 do
                if min>a[i] then min:=a[i];
        writeln('so be nhat trong 3 so: ',min);
        readln;
end.

`1)`

var a:integer;

begin

Clrscr;

writeln(' Nhap so a ');

readln(a);

Ip (a mod 3 = 0 ) then writeln (a,' Chia het cho 3');

else Ip (a mod 2 <> 0 ) then writeln (a,' ko chia het cho 2');

readln;

end.

`2)`

var a: array [1..3] of longint;
i，n，min:longint;
begin
clrscr;
for i:=1 to 3 do
begin
write(‘Nhap so thu ‘，i，’: ‘);
readln(a[i]);
end;
min:=a[1];
for i:=2 to 3 do
if min>a[i] then min:=a[i];
writeln(‘So be nhat trong ba so: ‘，min);
readln;
end.