uses
crt; {khai bao' thu vien crt}
var n,i,dem:
integer;
BEGIN
clrscr;{ cau lenh xoa man hinh};
write('Nhap n: ');
readln(n); dem:=0; for i:=1 to n do
begin if i mod 2=0 then
begin
write(i:4); dem:=dem+1;
end;
if dem=15 then
begin
dem:=0;
writeln;{in duoc 15 so thi xuong dong};
end;
end;
readln
END.

program diem_trung_binh;
uses crt;
var tb: real;
begin
clrscr;
write ('Nhap diem trung binh='); readln(tb);
if (tb >= 8) then write ('Ban la hoc sinh gioi') else
if (6.5 <= tb < 8) then write ('Ban la hoc sinh kha') else
if (5 <= tb < 6.5) then write ('Ban la hoc sinh trung binh') else write ('Ban la hoc sinh yeu');
readln;
end.
Hai bạn trên sai hoàn toàn rồi nhé