36.［参考答案］
①read（num）；或readln（num）；
②num＞＝0
③odd（num）（或等价表达式）
④read（num）或readln（num）

37.［参考答案］
①true
②I mod j=0（或 i=i div j*j　或等价表达式）
③isprime:=b
④isprime（p）and isprime（p+10）and isprime（p+22）

38.［参考答案］
①to n
②to n
③a［i］>a［j］
④（a［i］=a［j］）and（i>j）
⑤write（c［i］:4）
③④两者不交换

39.［参考答案］
①eof（f）
②f，x
③x DO
④f，x

40.［参考答案］
①first<>nil
②sumofelem+first∧.x
③first:=first∧.next