var a,i,s,h,k,d,m,n,b,c,sm:integer;j:real;
begin
for i:= 1 to 12 do
begin
readln(a);
d:=d
+3
00;
h:=d-a;
if h <0 then
begin
for sm:=1 to 1 do
s:=i;
end;
if h > 0 then
begin
k:=300-a+n;
m:=m+k div 100;
n:=k mod 100;
end;
end;
if s = 0 then
j:=(m*120)+n;
writeln(j:1:0);
if s <> 0 then
writeln('-',s);
end.

有问题

你没有在语句“
d:=d+300;
”前给变量“d”赋值