lab2

Program lab2;
const RowCnt = 4;
var
  i, q, k, N, beginCalc, endCalc: integer;
  res, s5, s239, c: real;
BEGIN
  repeat
    writeln('Введите N: ');
    repeat
      readln(n);
      if (n <=0 ) then
        writeln('Повторите ввод');
    until (n > 0);
    k := 1;
    res := 0;
    s5 := 5;
    s239 := 239;
    c := 1;
    endCalc := 0;

    while (endCalc <> N) do
    begin
      beginCalc := endCalc + 1;
      endCalc := beginCalc + RowCnt-1;
      if (endCalc >= N) then
        endCalc := N;
      //---------------------------------
      //----- верхняя шапка таблицы -----
      writeln();
      for i:= 1 to (endCalc - beginCalc + 2) do
        write ('----------------');
      writeln;
      //----- первая строка -----
      write ('      ШАГ      |');
      for i:= beginCalc to endCalc do
        if (i < 10) then
          write ('       ' + i + '       |')
        else
          write ('       ' + i + '      |');
      writeln;
      for i:= 1 to (endCalc-beginCalc+2) do
        write ('----------------');
      writeln;
      //----- вторая строка -----
      write ('    ЗНАЧЕНИЕ   |');
      //---------------------------------

      for i:= beginCalc to endCalc do
      begin
        res := res + 4*(c/(s5*k)) - (c/(s239*k));
        c := c * -1;
        k := k + 2;
        s5 := s5 * 25;
        s239 := s239 * 239 * 239;
        write('  ', res:12:10, ' |');
      end;
    end;

    //---------------------------------
    //----- закрываем таблицу -----
    writeln;
    for i:= 1 to (endCalc-beginCalc+2) do
      write ('----------------');
    writeln();
    //---------------------------------

    writeln();
    writeln('n-ое приближение выражения П/4 = ', res:12:10);
    writeln('Для повтора программы введите 1, для завершения - 0');
    readln(q);
  until q <> 1;
END.