giải bài tập pascal giúp mik vs tính giá tiền điện từ số kw đã dùng. từ kw 0 đến 50 đầu giá 1678 đ\kw từ kw 50 đến 100 1734đ từ kw 100 đến 200 2014đ từ kw 200 đến 300 2536đ và > 300 giá 3000

uses crt;
var n,kq,i:longint;
begin
        write('Nhap n: '); readln(n);
        for i:=1 to n do
                begin
                        if i<50 then kq:=kq+1678;
                        if (i>=50) and (i<100) then kq:=kq+1734;
                        if (i>=100) and (i<200) then kq:=kq+2014;
                        if (i>=200) and (i<=300) then kq:=kq+2536;
                        if i>300 then kq:=kq+3000;
                end;
        clrscr;
        write('So tien la: ',kq);
        readln;
end.