Program Operasi Aritmatik

program if_else;
uses crt;
var
a,b:integer;
j:real;
u,o:char;
label aa;

begin
clrscr;
        aa:
        Writeln('1.Penjumlahan');
        writeln('2.Pengurangan');
        writeln('3.Perkalian');
        writeln('4.Pembagian');
        write('Pilih Operasi Aritmatik [1/2/3/4]: ');
        readln(o);
        write('Input nilai 1: '); readln(a);
        write('Input nilai 2: '); readln(b);
        case o of
        '1':j:=a+b;
        '2':j:=a-b;
        '3':j:=a*b;
        '4':j:=a/b;
        end;
        writeln('Hasil: ',j:0:1);

        Write('Ulangi ?: '); readln(u);
        if u='y' then goto aa;
        readln;
end.