Pascal 20 Dikdörtgenin alanları toplamı

Merhaba arkadaşlar, bir ödevim var. Ödev şöyle, elle girilecek değerler ile 20 dikdörtgenin alanı toplamı hesaplayacak bir program.
Aşağıda Döngüyü yazdım. Döngü şu şekildedir.
1. dikdörtgen için bir uzunluk ve 2. dikdörtgen için bir uzunluk giriliyor. Fakat en son bunların alanları toplamını nasıl alabilirim. Lütfen yardımcı olun :)

Program Dikdortgen;uses crt;
label 1;
label 2;
var
a,b,uk,kk:integer;
begin clrscr;
       a:=1;
       b:=1;
            1: repeat
            writeln(a,'. Dikd”rtgen i‡in bir de§er giriniz');readln(uk);
            if( uk = 0) then
            begin
                writeln('Girdi§iniz De§er 0 Olamaz');
                goto 1;
            end
            else if( uk < 0) then begin
                 writeln('Girdi§iniz De§er 0 dan K‡k Olamaz');
                 goto 1;
            end
            else begin
                writeln(a,'. Dikd”rtgen ˜‡in Girilen De§er',uk);
                2: repeat
                writeln(a,'. Dikd”rtgen i‡in 2. de§eri giriniz');readln(kk);
                if( kk = 0 ) then
                begin
                   writeln('Girdi§iniz De§er 0 Olamaz');
                   goto 2;
                end
                else if( kk < 0 ) then begin
                   writeln('Girdi§iniz De§er 0 dan K‡k Olamaz');
                   goto 2;
                end
                else if( kk = uk ) then begin
                    writeln('Girdi§iniz de§er 1. De§er ile ayn olamaz');
                    goto 2;
                end
                else begin
                    writeln(a,'. Dikd”rtgen ˜‡in Girilen De§er',kk);
                end;
                until b = 1;
            end;
            a:= a+1;
            until a = 21;
readln;
end.