USES CRT;
var
a,b,h:integer;
o,u:char;
begin
writeln('Masukkan angka ');
readln(a);
writeln('Pilih operasi');
writeln(' + , - , * , : ');
readln(o);
writeln('Masukkan angka ');
readln(b);
case o of
'+':h:=a+b;
'-':h:=a-b;
'*':h:=a*b;
':':h:=a div b;
end;
writeln('Hasil = ',h);
repeat
writeln('Pilih operasi ');
writeln(' + , - , * , : ');
readln(o);
writeln('Masukkan angka ');
readln(b);
case o of
'+':h:=h+b;
'-':h:=h-b;
'*':h:=h*b;
':':h:=h div b;
end;
writeln('Hasil = ',h);
until u='y';
end.
Terimakasih.
Jangan lupa sebarkan dan berkomentar yang sopan ^^