tutorial pascal cetek

program kalkulator;
(*kalkulator sederhana dengan 2 operan untuk proses tambah, kurang, kali, bagi*)
uses crt;

var
pil:char;
input_1,input_2, ctr : integer;
operator : char;
hasil_tambah: integer;
(*hasil_tambah untuk operator tambah*)
hasil_kurang : integer;
(*hasil_kurang untuk operator kurang*)
hasil_kali : integer;
(*hasil_kali untuk operator kali*)
hasil_bagi : real;
(*hasil_bagi untuk operator bagi*)
begin
ctr := 0;
pil:='y';
clrscr;
write('Kalkulator ini bisa melakukan 4 operasi hitungan, yaitu : ');
writeln('tambah(+), kurang(-), kali(*), bagi(/)');
writeln('Jika salah memasukkan operator sebanyak 3x program ini akan secara otomatis keluar');


while (pil='y') do
begin
write('Masukkan input_1 : ');
readln(input_1);


write('Masukkan operator : ');
readln(operator);

write('Masukkan input_2 : ');
readln(input_2);

(*yang mau diproses*)
hasil_tambah := input_1+input_2;
hasil_kurang := input_1-input_2;
hasil_kali := input_1*input_2;
hasil_bagi := input_1/input_2;

case operator of
'+' : writeln('Hasilnya = ', hasil_tambah);
'-' : writeln('Hasilnya = ', hasil_kurang);
'*' : writeln('Hasilnya = ', hasil_kali);
'/' : writeln('Hasilnya = ', hasil_bagi);
end;
writeln('ingin ulangi lagi?(y/n)');readln(pil);
end;
readln;
end.