Membuat Kalkulator Mini

program kalkulatormini;
uses wincrt;
var
a,b,c,d:integer;
e,f,g:real;
begin
clrscr;
repeat
writeln('=========');
writeln;
writeln('Kalkulator mini');
writeln;
writeln('Layanan operasi penghitungan');
writeln('1.tambah');
writeln('2.kurang');
writeln('3.kali');
writeln('4.bagi');
writeln('5.keluar');
writeln('=========');
writeln;
writeln('Silahkan pilih');
readln(a);
clrscr;
case a of

1:begin
writeln('masukan nilai ke-1: ');readln(b);
writeln('masukan nilai ke-2: ');readln(c);
d:=b+c;
writeln('hasil:',d);readln;
end;
2:begin
writeln('masukan nilai ke-1: ');readln(b);
writeln('masukan nilai ke-2: ');readln(c);
d:=b-c;
writeln('hasil :',d);readln;
end;
3:begin
writeln('masukan nilai ke-1: ');readln(b);
writeln('masukan nilai ke-2: ');readln(c);
d:=b*c;
writeln('hasil:',d);readln;
end;
4:begin
writeln('masukan nilai ke-1: ');readln(b);
writeln('masukan nilai ke-2: ');readln(c);
g:=e/f;
end;
end;
clrscr;
writeln('============');
writeln('terima kasih telah mencoba program pascal ini');
writeln('============');
readln;
until a=5
end.