信息学奥林匹克竞赛-Pascal过程与函数

其中IsPrime1是过程，没有返回值，IsPrime2是函数，有返回值。

var
n,i:longint;

procedure IsPrime1(number:longint);
begin
	for i:=2 to trunc(sqrt(number)) do
	begin
		if number mod i=0 then
		begin
			writeln('false');
			exit;
		end;
	end;
	writeln('true');
end;

function IsPrime2(number:longint):string;
begin
	for i:=2 to trunc(sqrt(number)) do
	begin
		if number mod i=0 then
		begin
			IsPrime2:='false';
			exit;
		end;
	end;
	IsPrime2:='true';
end;

begin
	readln(n);
	IsPrime1(n);
	writeln(IsPrime2(n));
end.