F1 Help F2 Save F3 Open Alt+F9 Compile F9 Make Alt+F10 Local menu
File Edit Search Run Compile Debug Tools Options Window Help
╔═[■]════════════════════════ class.pas ═══════════════════════4═[]═╗
║program sbsbsb;
║ var
║ a, b: integer;
║ begin
║ randomize;
║ a:=0;
║ b:=random(11);
║ repeat
║ write('Ha,Ha,Ha,let me see,who is unlucky.');
║ read(b);
║ a:=a+1;
║ if b=1 then writeln('Bob');
║ if b=2 then writeln('Eric');
║ if b=3 then writeln('Henry');
║ if b=4 then writeln('Joe');
║ if b=5 then writeln('Ted');
║ if b=6 then writeln('Gerry');
║ if b=7 then writeln('Edsion');
║ if b=8 then writeln('Louis');
║ if b=9 then writeln('lamb');
║ if b=10 then writeln('Jim');
║ until(a=1);
║ end.
║
║
╚══*════ 1:33 ■▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒┘
F1 Help F2 Save F3 Open Alt+F9 Compile F9 Make Alt+F10 Local menu

各种不可救药。。。
这个repeat..until真的不是在逗我？。。
还有，没学过case语句？？
b已经取值了再read是闹哪样
还有，你放个源代码就ok，打印界面是干什么。。好歹说一下你想干什么，错误是什么。。

从1楼看到3楼 看笑了

你循环的位置放错了，还有，之前B是随机数了你在 读入 干叼

那有没有什么更加简单的方法达到这个目的？

如果我要把它展示出来该怎么办？
就是表面装饰那个高级一点
而不用进入pascal去运行
就是一个程序的样子
怎么办？