求大神幫忙用Pascal編下程序，題目較多，能都做出來最好，做幾個也行，謝謝！

1、

　 ?＃　　　　＃

　＃＃＃　　＃＃＃

＃＃＃＃＃＃＃＃＃＃

　＃＃＃＃＃＃＃＃

＃＃＃＃＃＃

　＃＃＃＃

　　＃＃

怎麽把第二個三角形弄上去?還有那個倒三角形？

var i,j,n,m:longint;

begin

readln(n);

inc(n);

for i:=1to n-1 do

begin

? for j:=1 to n-i-1 do write(' ');

? for j:=1 to 2*i-1 do write('#');

? for j:=1 to n-i-1 do write(' ');

? for j:=1 to i*2-1 do write('#');

? writeln;

end;

n:=(n-1)*2;

for i:=1to n do

begin

? for j:=1 to i-1 do write(' ');

? for j:=1 to n-i do write('#');

? writeln;

end;

end.

000000000000000000000000000000000000000000000000000

2、

描述 Description

求出在N,M範圍內所有的的素數(包括N和M)

輸入格式 Input Format

壹行，2個正整數N,M

integer範圍，其中1＜N≤M≤maxint。

輸出格式 Output Format

壹行，按從小到大的順序輸出所有N~M範圍中的所有的素數。

數與數之間空壹格。

樣例輸入 Sample Input

2 20

樣例輸出 Sample Output

2 3 5 7 11 13 17 19

var

ans,i,j,n,m:longint;

function fac(i:longint):boolean;

var j:longint;

begin

for j:=2 to trunc(sqrt(i)) do

if (i>j)and(i mod j=0) then exit(false);

exit(true);

end;

begin

readln(n,m);

ans:=0;

for i:=n to m do

if fac(i) then inc(ans);

writeln(ans);

end.

0000000000000000000000000000000000000000000000000000000000000000

var n,m,i,x,y,z,t:longint; f:boolean;

begin

?read(n,m);

?for i:=n to m do

begin

?if m mod i=0 then f:=false;

?if m=1 then f:=false;

?if f then write(t);

end;

end.

運行出錯，不知錯在哪

這個程序沒錯，是妳想錯了

00000000000000000000000000000000000000000000000000

3、描述 Description

寧波圖書館地址是海曙區永豐路135號。它是壹個安靜讀書和深入思考的好地方。圖書館裏面有閱覽室，可供讀者直接閱讀，也有借閱室，可供讀者借書。還有少兒讀書館呢，裏面總有不少的小讀者。周六與周日，圖書館的開放時間是8:00~17:00。如果告訴妳時間，妳當然可以馬上推算出那個時間圖書館是否開放著。不過，現在妳要賦予計算機智慧，讓它也能像我們壹思考，推測出給定的時間，圖書館是否開放著。讓我們賦予計算機智慧吧！

輸入格式 Input Format

只有壹行，有二個正整數a和b,分別代表著給定時間的“時”和“分”

輸出格式 Output Format

只有壹行，有壹個字符串信息。如果那個時間圖書館開放著，則輸出YES,如果圖書館開關了，則輸出NO

樣例輸入 Sample Input

8 29

樣例輸出 Sample Output

YES

var a,b:longint;

procedure ok;

begin

writeln('YES');