pascal的代码报错了，请帮忙改正一下

更新时间2019-01-13 23:00:01

program e54; 

  var a,b,i:longint; 

begin 

 read(a,b);  

if (a<0) or (a<0) 

  then

   begin  

 abs(b);    

  for i:=1 to b do
  

   dec(a);       

write(a);
  end ;

  else 

   begin   

 for i:=1 to b do 

    inc(a);
  

 write(a); 

   end; 

 end.

语法上改好的程序(楼上的是水贴,你不用理的)

var
 a, b, i: longint;
begin
 read(a, b);
 if (a < 0) or (b < 0) then //判2个a<0什么意义??,应该是b<0吧
 begin
   b:=abs(b); //仅仅是abs(b)不会改b的值的
   for i := 1 to b do
     dec(a);
   write(a);
 end
 else //else的前面不能有分号的
 begin
 for i := 1 to b do
    inc(a);
 write(a);
 end;
end.

const a:array[1..5,1..10] of byte = ((0,0,0,0,0,0,0,0,0,0), (0,0,1,0,1,0,0,1,0,0), (0,1,1,1,0,1,0,1,1,1), (0,1,1,1,0,0,0,1,0,1), (0,0,1,1,1,0,0,1,1,1)); var b:array[2..5] ...