Contoh Kasus : Menghitung Deret Ganda

Program ujian;
uses crt;
var
i,n,a,b,c,d,e:integer;
begin clrscr;
        readln(n);
        for i:= 1 to n do
        begin
                if i mod 2= 1 then
                begin
                a:=a+10;
                e:=a;
                c:=c+a;
                write(a,' ');
                end
                else
                begin
                b:=b+10;
                e:=b;
                d:=d+b;
                write(b,' ');
                end;
        end;
        writeln('Suku ke-',n,'= ',e);
        writeln('Jumlah suku ke-',n,'= ',c+d);
        readln;
end.