请教一小pascal高手!本人刚开始学..

var
i,j,k : integer;
begin
for i := 1 to 19 do
for j := 1 to (100-i*5) div 3 do begin
k := (100-5*I-3*j)*3;
if i+j+k = 100 then writeln(i:10,j:10,k:10);
end;
end.

case语句由一个选择表达式和众多可选择的操作序列组成。运行时根据表达式的求值结果，在众多的分支中选取一个分支执行。

case语句格式1：
case 选择表达式 of
常量表1： 语句1；
常量表2： 语句2；
……
常量表n： 语句n
end

case语句格式2：
case 选择表达式 of
常量表1： 语句1；
常量表2： 语句2；
……
常量表n： 语句n；
else 语句n+1
end

选择表达式的值只能是序数类型，即为整数、字符、布尔以及用户自定义的枚举和子界类型。
case语句执行与表达式值相匹配的case常数所指向的那条语句。如果没有相匹配的值，则执行else部分或什么也不做。在case语句中，else前面的语句末尾有分号，与if-then-else语句中分号的用法不同。

有问题可以问我：QQ：597692059

program ss;
var
da,zhong,xiao:longint;
begin
for da:=0 to 33 do
for zhong:=0 to 50 do
begin
xia