Turbo Pascal Program Kalkulator

uses crt;

var

a,p,l,z:integer;

begin

clrscr;

textcolor(9);

repeat

writeln('==========');

writeln;

writeln('Pemrograman Kalkulator');

writeln;

writeln('Beberapa Contoh Pemrograman Kalkuator:');

writeln('1.Penjumlahan');

writeln('2.Pengurangan');

writeln('3.Perkalian');

writeln('4.Pembagian');

writeln('5.Keluar');

writeln('==========');

writeln;

writeln('Silahkan Pilih Yang Anda Inginkan');

readln(a);

clrscr;

case a of

1:Begin

write('masukan bilangan:');readln(p);

write('masukan bilangan:');readln(l);

z:=p+l;

writeln('hasil penjumalahan:',z);readln;

end;

2:Begin

write('masukan bilangan:');readln(p);

write('masukan bilangan:');readln(l);

z:=p-l;

writeln('hasil pengurangan:',z);readln;

end;

3:Begin

write('masukan bilangan:');readln(p);

write('masukan bilangan:');readln(l);

z:=p*l;

writeln('hasil perkalian:',z);readln;

end;

4:Begin

write('masukan bilangan:');readln(p);

write('masukan bilangan:');readln(l);
z:=p/l;
writeln('hasil pembagian:',z);readln;
end;
end;
writeln('==========');
writeln;
writeln('Terima Kasih');
writeln;
writeln('==========');
readln;
until a=5
end.