nhập vào điểm toán và văn của học sinh trong lớp xếp loại học sinh như sau giỏi:nếu điểm toán + điểm văn >=18 khá: nếu điểm toán +điểm văn >=16 tb:nếu điểm toán + điểm văn >=12 còn lại là yếu

program xeploai;

uses crt;

var T,V,S:real; 

begin clrscr;

   write('Nhap diem ba mon Toan va Van: '); readln(T,V);

     S:=T+V;

   if S>=18 then writeln('Gioi');

   if S>=16 then writeln('Kha');

   if S>=12 then writeln('Trung binh');

                   else writeln('Yeu');

readln;

end.

Học tốt!

program ct;

uses crt;

var T,V,S:integer;

begin

clrscr;

write('nhap toan:=');readln(T);

write('nhap van:=');readln(V);

S:=T+V;

if S>=18 then writeln('GIOI');

if S>=16 then writeln('KHA');

if S>=12 then writeln('TRUNG BINH') else writeln('YEU');

readln

end.