`1`

uses crt;
var t,v,a,tb:real;
S:string;
begin
clrscr;
writeln('nhap diem thi toan, van, anh :');
readln(t,v,a);
tb:=(2*t+2*v+a);
if tb>=45 then s:='DAU LOP CHUYEN';
if (tb<45) and (tb>=40) then s:='DAU LOP TICH HOP';
if (tb<40) and (tb>=30) then s:='DAU LOP THUONG';
IF tb<30 then s:='ROT';
writeln(s );
end.

`2`

uses crt;
var tb,kttx,ktgk,ktck:real;
s:string;
begin
clrscr;
writeln(' nhap diem kttx,ktgk,ktck');
readln(kttx,ktgk,ktck);
tb:=(kttx+ktgk*2+ktck*3)/6;
if tb>=8 then s:='GIOI';
if (tb<8) and (tb>=6.5) then s:='KHA';
if (tb<6.5) and (tb>=5) then s:='TRUNG BINH';
if (tb<5) and (tb>=3.5) then s:='YEU';
if (tb<8)   then s:='KEM';
writeln(s)
;
readln
end.

Bài 2

program XD;

uses crt;

var KTTX,KTGK,KTCK,Diemtrungbinh : read;

Begin

Write('nhap KTTX');

Readln(KTTX);

Write('nhap KTGK');

Readln(KTGK);

Write('nhap KTCK');

Readln(KTCK);

Diemtrungbinh :=(KTTX+KTGK*2+KTCK*3)/6

If Diemtrungbinh>=8,0 then writeln ('Gioi');

If Diemtrungbinh>=6,5 then writeln ('Kha');

If Diemtrungbinh >=5 then writeln ('TB');

If Diemtrungbinh >=3,5 then writeln ('Yeu');

If Diemtrungbinh <3,5 then writeln ('Kem');

Readln

End.

Bài 1

program TD;

uses crt;

varToan ,Van,Anh ,Diemthi : read;

Begin

Write('nhap Toan');

Readln(Toan);

Write('nhap Van');

Readln(Van);

Write('nhap Anh');

Readln(Anh);

Diem :=(KTTX+KTGK*2+KTCK*3)/6

If Diemthi>=45 then writeln ('Dau Lop Chuyen');

If Diemthi>=40 then writeln ('Dau Lop Tich Hop ');

If Diemthi >=30 then writeln ('Dau Lop Thuong');

If Diemthi <30 then writeln ('Rơt');

Readln

End.