Дано число A,на интервале от 1 до n нужно найти и вывести 3 последовательных числа при умножении дающих A.Предусмотреть ответ «ошибка» — Pascal(Паскаль)

var
  i,a,n,k:integer;
  begin
    writeln('Chislo');
      readln(a);
  writeln('kol-vo chisel');
  readln(n);
  k:=0;
  for i:= 1 to n-2 do
  if i*(i+1)*(i+2) = a then begin
     writeln(a,' = ',i,'*',i+1,'*',i+2);
      k:=k+1;
      readln;
       end;
         if k=0 then
         begin
  writeln ('error');
            readln;
           end;
          end.

var
  i,a,n:integer;
begin
  writeln('Chislo');
  readln(a);
  writeln('kol-vo chisel');
  readln(n);
  for i:= 1 to n-2 do
  if i*(i+1)*(i+2) = a then begin
    writeln(a,' = ',i,'*',i+1,'*',i+2);
  end
  else writeln ('error');
  readln;
end.