Program Deret Aritmatik Ganjil

Program Deret_Ganjil;
Uses crt;
var
i,n,p,q:integer;
u:char;
label x,y;
Begin
clrscr;
        x:
        Writeln('Program menentukan suku ke-n dan jumlah hingga suku ke-n dari deret: ');
        writeln('                        3 5 7 9 11 .... Un');
        writeln('====================================================================');
        p:=1;
        q:=0;

        Write('Berapa n yang anda inginkan? : '); readln(n);
        writeln('Deretnya: ');

        for i:=1 to n do
        begin
        p:=p+2;
        q:=p+q;
        write(p,' ');
        end;

        writeln(' ');
        writeln('Suku ke-',n,': ',p);
        writeln('Jumlah hingga suku ke-',n,': ',q);

        Write('Coba lagi? [y/n] : '); readln(u);
        writeln('====================================================================');
        if u='y' then goto x
        else goto y;

        y:
        Readln;
End.