Исправьте ошибки в программе. Укажите их количество. ДАЮ МНОГО поинтовProgram A;ConstX : 50;С : 1000;Var SUM, PR, D : integer;BeginSUM := X+C;Writeln ( SUM );PR := X*C;Writeln ( PR );D := X / C;Writeln ( D );End.

i,n: integer;

 procedure IN1(var a,b:real;n:integer;var y:real);

  var

   p:real;

   i:integer;

     begin

       y:=1;

        for i:=1 to n do

         begin

          p:=exp(b*ln(a));

           y:=p*y;

         end;

     end;

procedure IN2(var a, b:real; n:integer; var y1:real);

 var

  p:real;

  i:integer;

   begin

    y1:=0;

      for i:=1 to n do

       begin

       p:=exp(b*ln(a));

       y1:=y1+p;

      end;

   end;

begin