tpw + - : *

uses wincrt
var
bil1,bil2,hasil,n:real
begin 
write('bil1 = ');readln(bil1)

write('bil2 = ');readln(bil2)
write('input pilihan Operasi= ');readln(n)
if n=1 then
begin
hasil := bil1+bil2;
write('hasil operasi= ',bil1:0:2,' + ',bil2:0:2,' = ',hasil :0:2)
end
else if n=2 then
begin
hasil := bil1-bil2;
write('hasil operasi= ',bil1:0:2,' - ',bil2:0:2,' = ',hasil :0:2)
end
else if n=3 then
begin
hasil := bil1*bil2;
write('hasil operasi= ',bil1:0:2,' * ',bil2:0:2,' = ',hasil :0:2)
end
else
begin
hasil := bil1/bil2;
write('hasil operaso= ',bil1:0:2,' / ',bil2:0:2,' = ',hasil :0:2)
end;
readkey
end.