Значение одной из мер изменяйте от а до b с шагом с

program Project1;
 
uses
  crt;
 
const
  fing = 11.4;
 
var
  a, b : Real;
  c : Extended;
  i, j, vrnt : Byte;
  mass_sm : array of Real;
 
procedure gener_for(a_f : Real; c_f : Extended);
var
  k : Byte;
begin
  for k := 0 to j do
  begin
    mass_sm[k] := a_f;
    a_f := a_f + c_f;
  end;
end;
 
procedure gener_while(a_f, b_f : Real; c_f : Extended);
var
  k : Byte;
begin
  k := 0;
  while (k <= j) do
  begin
    mass_sm[k] := a_f;
    Inc(k);
    a_f := a_f + c_f;
  end;
end;
 
procedure gener_repeat(a_f, b_f : Real; c_f : Extended);
var
  k : Byte;
begin
  k := 0;
  repeat
    mass_sm[k] := a_f;
    Inc(k);
    a_f := a_f + c_f;
  until (k >= j);
end;
 
begin
  Clrscr;
  Write('Input a= '); Readln(a);
  Write('Input b= '); Readln(b);
  //c := (b - a)/9; //dla 10 shagov
  Write('Input c= '); Readln(c); //dla proizvolnogo shaga
  j := Round((b - a)/c);
  SetLength(mass_sm,j+1);
  vrnt := 4;
  Writeln('Choose method:');
  Writeln('1. For');
  Writeln('1. While');
  Writeln('1. Repeat until');
  while not(vrnt in [1..3]) do
    Readln(vrnt);
  case (vrnt) of
    1 : gener_for(a,c);
    2 : gener_while(a,b,c);
    3 : gener_repeat(a,b,c);
  end;
  Clrscr;
  Writeln('     Tablica sootnoshenij bla-bla     ');
  Writeln('       SM                Finger       ');
  for i := 0 to j do
  begin
    Write('    ',mass_sm[i]:3:4,'               ',(mass_sm[i] / fing):3:4);
    Writeln;
  end;
  Writeln;
  Writeln;
  Writeln;
  Writeln('Tablicu sostavil fanat9966');
  Readln;
end.