bahasa pemrograman pascam pencabangan tak bersyarat

Program Pencabangan_Tak_Bersyarat{Input,Output};
uses crt;
Label
        Ulang;
Var
        counter,a,b,C : integer ;
        D : real ;
Begin
        Counter:=1;
        Ulang:
        Clrscr;
        Writeln('Data yang ke - ',counter);
        write('Masukkan dua bilangan : ');
        readln(a,b);
        C := a*b ;
        D := a/b;
        writeln('Nilai C = ',C);
        writeln('Nilai D = ',D);
        writeln;
        Counter := counter+1;
        writeln('Tekan <ENTER> untuk mengulang atau ');
        writeln('Tekan <CTRL-BREAK> untuk berhenti ');
        readln;
        Goto Ulang;
End.