Viết chương trình tiền điện cho khách hàng nếu sử dụng lượng điện tiêu thụ 100kw trở lưu 1500đ

uses crt;
var n:longint;
begin
clrscr;
   write(‘Nhap so kw: ‘);readln(n);
   if n>100 then writeln(‘So tien: ‘,n*1500,’d’)else
   writeln(‘Khong can dong’);
readln
end.