Contoh program penghitungan dengan pascal uses wincrt; var x,y,hasil:real; jawab:char; begin write (‘masukan angka ke-1:’);readln (x); write (‘pilih operator: (+)/(-)/(*)/(/)’);readln (jawab); write (‘masukan angka ke-2:’);readln (y); if ( jawab= ‘+’) then begin hasil:= x+y end; if ( jawab = ‘-‘) then begin hasil:= x-y end; if ( jawab = ‘*’) then begin hasil:= x*y end;…