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.