bahasa pemrograman pascal kalkuluator sederhana

program  Kalkuluator_Sederhana ;

uses crt ;

label    ulang ;

var

         a, b, H : real ;

         o : char ;

begin

         clrscr ;

         write('Operand 1 : '); readln(a);

         ulang :

         write('Operator : '); readln(o);

         write('Operand 2 : '); readln(b);

         if (o='/') and (b=0) then

            else if o='+' then H:=a+b

            else if o='-' then H:=a-b

            else if o='*' then H:=a*b

            else if o='/' then H:=a/b

            else if o='^' then H:=exp(b*ln(a))

            else GOto ulang;

            writeln('Maka hasilnya adalah : ',H);

            readln;

End.