viết chương trình pascal, tính điểm thường xuyên, tính điểm giữa kì và học kifmoon tin

program ct;
uses crt;
var HS1,GHK,CHK:real;
    i,a:Qword;

begin
    clrscr;
    writeln('MON TIN'); writeln;
    writeln ('Nhap cot diem he so thu nhat: '); readln (HS1);
    for i:=2 to 3 do 
        begin
        writeln ('Nhap cot diem he so thu ',i,': '); 
        readln(a); HS1:=HS1+a;
        end;
    writeln ('Nhap diem giua hoc ki: '); readln(GHK);
    writeln ('Nhap diem cuoi hoc ki: '); readln(CHK);
    writeln ('Trung binh mon la: ',(HS1+GHK*2+CHK*3)/8:5:1);
    readln;

end.

__________________

#Duahauvn

#HocTot

#ThiTot