Program Kalkulator Sederhana Pakai Turbo Pascal

Ini Contoh program membuat program Kalkulator Sederhana menggunakan Turbo Pascal. Belum dicoba sih, mungkin beberapa sintaks masih error. Yang perlu dipelajari adalah logika penyederhanaan program karena dari semua tugas yang saya terima, tidak ada yang menyederhanakan program. Coba ditelurusi yach.....
program kalkulator sederhana;
uses wincrt;
var pil:char;
angka1,angka2,hasil:real;
i:integer;
begin
repeat
i=0;
writeln('KALKULATOR SEDERHANA');
writeln('a. Perkalian');
writeln('b. Pembagian');
writeln('c. Penambahan');
writeln('d. Pengurangan');
writeln('e. Keluar');
writeln;
write('Pilihan Anda'); readln(pil);
if pil='a' then writeln('Perkalian');
if pil='b' then writeln('Pembagian');
if pil='c' then writeln('Penambahan');
if pil='d' then writeln('Pengurangan');
if pil='e' then
begin
writeln('Keluar');
i=1
end;
else
begin
writeln('Anda Salah pencet');
i=2
end;
if i=0 then
begin
write('Angka pertama : ');readln(angka1);
write('Angka Kedua : ');readln(angka2);
if pil='a' then
begin
hasil:=angka1*angka2;
writeln(angka1:4:2,' x ',angka2:4:2,' = ',hasil:8:2:);
end;
if pil='b' then
begin
hasil:=angka1/angka2;
writeln(angka1:4:2,' / ',angka2:4:2,' = ',hasil:8:2:);
end;
if pil='c' then
begin
hasil:=angka1+angka2;
writeln(angka1:4:2,' + ',angka2:4:2,' = ',hasil:8:2:);
end;
if pil='d' then
begin
hasil:=angka1-angka2;
writeln(angka1:4:2,' - ',angka2:4:2,' = ',hasil:8:2:);
end;
end;
until i=1;
end.