lập trình pascal
1/ Nhập bốn số nguyên dương lớn nhất, nhỏ nhất
2/ Nhập một số nguyên dương kiểm tra số đó chẳng lẻ
3/ Tìm tất cả các ước của 1 số nguyên dương nhập từ bàn phím
4/ Kiểm tra số nguyên dương là hợp số hay là số nguyên tố
5/ Tìm ước chung lớn nhất, bội chung nhỏ nhất của hai số nguyên dương nhập từ bàn phím
HELP!!!!
1) var a,b,c,d,h,g:integer;
begin
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
write('d=');readln(d);
h:=a;
if b>h then h:=b;
if c>h then h:=c;
if d>h then h:=d;
g:=a;
if b<g then g:=b;
if c<g then g:=c;
if d<g then g:=d;
writeln(' So lon nhat trong 4 so la: ',h);
writeln(' So be nhat trong 4 so la: ',g);
readln;
end.
2) var a:integer;
begin
write('a=');readln(a);
if a mod 2=0 then writeln(a,' la so chan ')
else writeln(a,' la so le ');
readln;
end.
5) var a,b,m,n:integer;
begin
write('a=');readln(a);
write('b=');readln(b);
m:=a;
n:=b;
while m<>n do
begin
if m>n then m:=m-n
else n:=n-m;
end;
writeln(' Uoc chung lon nhat cua 2 so la: ',m);
writeln(' Boi chung nho nhat cua 2 so la: ',a*b div n);
readln;
end.
2)var
n:integer;
begin
write('nhap n:');readln(n);
if n mod 2=0 then write('n la so chan')
else write('n la so le');
readln;
end.
3)
var
i,n:integer;
begin
readln(n);write('cac uoc cua',' ',n,' ','la:');
for i:=1 to n do
if n mod i=0 then write(i);
readln
end.
4)
var
n,i:integer;
kt:boolean;
begin
readln(n);kt:=true;
for i:=2 to n-1 do
if n mod i=0 then
begin
kt:=false;
break;
end;
If kt=true then write(n,'la snt')
else write(n,'la hop so');
readln
end.
