Ini masih salah,,, Jika ada yang bisa harap di komen yah,,, Pleess

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); end; 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; until i=1; end.