program GeneratorExpa;                  //2 147 483 647   1 000 000 000
uses crt;
var
maxl:longint; //maxymalny level
maxe:longint; //maxymalny exp
level:longint; //level
a:real;
exp:real;
plik:text;

procedure zakoncz;
begin
writeln('Osiagnieto maxymalna wartosc exp: ',exp:0:0,')');
level:=maxl;
readkey;
end;


BEGIN
clrscr;
writeln('Podaj Maxymalny lvl');
readln(maxl);
writeln('Podaj max exp, 0=domy˜lnie');
readln(maxe);
Writeln('Podaj zmienna "a"');
readln(a);
clrscr;
assign(plik, 'C:tabela.txt');
rewrite(plik);

   if maxe = 0 then maxe:=1000000000;
        for level:=1 to maxl do
       begin
        exp:=a*sqr(level);
        write(plik, exp:0:0,',');
        writeln('exp: ',exp:0:0,' level: ',level);
        if exp>maxe then zakoncz;
       end;
writeln('Wygenerowano tablice exp');
readkey;
end.