Program Kalkulator-Logika dan Alogaritma

program kalkulator;
uses wincrt;
var
a,b,c,d:integer;
e,f,g:real;
begin
clrscr;
repeat
a:=5;                                                                              
writeln('Program kalkulator');
writeln;
writeln('============');
writeln;
writeln('Menu pilihan');
writeln;
writeln('_______________');
writeln('1.Tambah');
writeln('2.Kurang');
writeln('3.Kali');
writeln('4.Bagi');
writeln('5.Keluar');
writeln;
writeln('_______________');
writeln;
writeln('Tentukan pilihan menu:');
readln(a);
case a of
1:begin
write('Masukkan bilangan pertama:');readln(b);
write('Masukkan bilangan kedua:');readln(c);
d:=b+c;
writeln('Hasilnya adalah:',d);readln;
end;
2:begin
write('Masukkan bilangan pertama:');readln(b);
write('Masukkan bilangan kedua:');readln(c);
d:=b-c;
writeln('Hasilnya adalah:',d);readln;
end;
3:begin
write('Masukkan bilangan pertama:');readln(b);
write('Masukkan bilangan kedua:');readln(c);
d:=b*c;
writeln('Hasilnya adalah:',d);readln;
end;
4:begin
write('Masukkan bilangan pertama:');readln(e);
write('Masukkan bilangan kedua:');readln(f);
g:=e/f;
writeln('Hasilnya adalah:',g);readln;
end;
end;
writeln('*****************');
writeln;
writeln('Thanks For Trying Ara Calculator');
writeln;
writeln('****************');
readln;
clrscr;
until a=5
end.