$#QLinkVN$

Code Pascal:

program QLV;

uses crt;

var t,v,a,dtb: real;

begin clrscr;

write('Nhap diem Toan cua ban: '); readln(t);

write('Nhap diem Van cua ban: '); readln(v);

write('Nhap diem Anh cua ban: '); readln(a);

dtb:=(t+v+a)/3;

if dtb>=6.5 then write('Ban da trung tuyen!') else write('Ban khong trung tuyen!');

readln end.

`* Pascal:`

`" "`

program elire;
uses crt;
var math, lit, ang, moy : real;

begin
    clrscr;
    write('Nhap diem toan, van, anh: ');
    readln(math, lit, ang);
    
    moy := (math + lit + ang) / 3;
    if moy >= 6.5 then
        write('Ban trung tuyen!')
    else 
        write('Ban khong trung tuyen');
        
    readln
end.