Câu 5:
a)
i= 7;
j= 24;
k:= 27;
b)
j= 10;
S= 55; (tổng các số từ 1 đến 10).
Câu 6:
uses crt;
var v,t,a:longint; dtb:real;
begin
clrscr;
write('Nhap diem van: ');readln(v);
write('Nhap diem toan: ');readln(t);
write('Nhap diem anh: ');readln(a);
dtb:=(v+t+a)/3;
writeln('Diem trung binh cua hoc sinh: ',dtb);
if (v>5)and(t>5)and(a>5) then writeln('Duoc len lop') else
begin
if v<=5 then writeln('Phai thi tra lai mon van');
if t<=5 then writeln('Phai thi tra lai mon toan');
if a<=5 then writeln('Phai thi tra lai mon anh');
end;
readln
end.
