Giúp em bài tập pascal 11

[Jong]

Mọi người giúp em với nha, mai học rồi!!!

Bài 1: Viết chương trình có sử dụng hàm/thủ (cả 2 cái luôn :d) tục tìm số bé nhất của 3 số bất kì?

Bài 2: Viết chương trình có sử dụng chương trình con, kiểm tra một số có phải là số nguyên tố?

Bài 3: Viết hàm/thủ tục (cả 2) tìm số bé nhất của một dãy số có n số?

 

[Trung Kiên]

Bài 1 ( sử dụng hàm )

uses crt;
var a, b, c,min1: integer;


function min(var a,b: integer): integer;
var n: integer;
begin
	if a<b then :=a
	else m:=b;
	max:=m;
end;


begin
	write ('nhap 3 so'); readln(a,b,c);
	min1:=min(min(a,b),c);
	writeln('so nho nhat',min1) ;
	readln
end.

 

[Trung Kiên]

Bài 2 ( sử dụng hàm )

program bt1;
var j,n:integer;
function sont(n:integer):boolean;
        var i,k:integer;
        begin
                k:=0;
                if n<>2 then
                        begin
                                for i:=2 to n-1 do
                                if (n mod i = 0) then k:=k+1;
                                if (k>0) or (n<=1) then sont:=false else sont:=true;
                        end
                else sont:=true;
        end;
BEGIN
        write('Nhap n = ');
        readln(n);
        if sont(n)=true then write(n,' la so ngto') else write(n,' khong la so ngto');
        readln
END.