Program deret;

Uses Math, sysutils, Crt;

label programUtama;

var
        pilihan, a, n, b, x: integer;
        bilangan, isExit: string;

function aritmetika(a, n, b: integer): string;

var
        hasil:  integer;

begin
        hasil := a + ((n - 1) * b);
        aritmetika := IntToStr(hasil);
end;

begin
        programUtama:

        Clrscr;

        writeln('=========================================================');
        writeln('                      PROGRAM DERET                      ');
        writeln('=========================================================');
        writeln('');
        writeln('Silahkan masukkan suku awal untuk deret aritmetika');
        readln(a);
        writeln('Silahkan masukkan jumlah bilangan untuk deret aritmetika');
        readln(n);
        writeln('Silahkan masukkan selisih bilangan untuk deret aritmetika');
        readln(b);

        x := 1;

        writeln('=========================================================');

        while x <= n do
        begin
                bilangan := aritmetika(a, x, b) + ', ';
                write(bilangan);
                x := x + 1;
        end;

        writeln('...');
        writeln('=========================================================');
        writeln('');

        writeln('Apakah Anda ingin mengulang program? (Y/N)');
        write('Pilihan Anda: ');
        readln(isExit);

        if (isExit = 'Y') or (isExit = 'y') then
        begin
                goto programUtama;
        end
        else
        begin
                exit;
        end;
end.