Viết chương trình tính tiền điện Pascal

TTSố kWh sử dụngGiá bán điện [đồng/kWh]Bậc 1Cho kWh từ 0 - 501.678Bậc 2Cho kWh từ 51 - 1001.734Bậc 3Cho kWh từ 101 - 2002.014Bậc 4Cho kWh từ 201 - 3002.536Bậc 5Cho kWh từ 301 - 4002.834Bậc 6Cho kWh từ 401 trở lên2.927

Viết chương trình tính tiền điện của một hộ gia đình . Biết rằng : - Nếu số kw sử dụng 50 thì đơn giá 2000đồng/1kw. thuế VAT là 5% của tổng tiền phải thanh toán. Kết quả tiền thanh toán được lấy 2 chữ số thập phân Giúp mình với please

Bài 5:

uses crt;

var m,n:longint;

begin

clrscr;

write['Nhap so kWh su dung: '];readln[n];

write['Nhap don gia cua 1 kWh: '];readln[m];

writeln['So tien phai tra: ',n*m];

readln;

end.

Bài 7:

uses crt;

var w,h:longint;

begin

clrscr;

write['Nhap can nang: '];readln[w];

write['Nhap chieu cao: '];readln[h];

if [w/sqr[h]]18.5] and [w/sqr[h]