Program bayar Fotocopy dg PASCAL

Hari ni ku coba ketikkan hasil tulisanku waktu belajar PASCAL.
Moga aja bermanfaat buat yg berkunjung.

program fotocopy;
uses crt;
const harga=150;
var jumlah : longint;
      bayar  : longint;
begin
     clrscr;
     write('Masukkan jumlah =');
     readln(jumlah);
     bayar:=jumlah*harga;
     writeln('Bayar = Rp ',bayar);
     readkey;
end.