计算机Pascal程序

var i,j,k,s,t,n,m,x,y,z:longint

begin

readln(n)

i:=n

while 3=3 do

begin

k:=2

for j:=2 to i-1 do

if (i mod j=0) then

k:=k+1

if k=n then

begin

write(i)

halt

end

i:=i+1

end

end.

不过算50000可能会超时

一般由程序首部、说明部分和执行部分组成，

就像“龙地龙”先生说的

程序首部用来定义程序名

标准格式：

program 程序名

程序名必须以英文字母开头，名称里面不能出现除了下划线以外的任何符号，最大长度有60多位。

说明部分用来定义执行部分所需的标量以及常量

格式除了那5个以外还有一个：

label 名称；

用于goto语句的应用，但用的很少

执行部分为程序的主要部分，它是完成题目的关键，任何计算都只能在这里面进行。格式我就不多说了。

---