uses crt;

var sbd, t,v,a,t2: real;

begin

clrscr;

write('So bao danh: '); readln(sbd);

write('Diem van: '); readln(v);

write('Diem toan: '); readln(t);

write('Diem ngoai ngu: '); readln(a);

t2:=v+t+a;

writeln;

writeln('Diem van: ',v);

writeln('Diem toan: ',t);

writeln('Diem ngoai ngu: ',a);

writeln('Tong so diem: ',t2);

if t>=15 then writeln('Ban da trung tuyen') else writeln('Ban da khong trung tuyen can co gang hon nua!');

readln

end.

uses crt;

var a, b, c, d, t : integer;

begin

clrscr;

write('Nhap SBD : '); readln(d);

write('Nhap diem toan, van, ngoai ngu : ');

readln(a, b, c);

t := a + b + c;

writeln('Dien van : ', a);

writeln('Diem toan : ', b);

writeln('Diem ngoai ngu : ', c);

if t >= 15 then writeln('Ban da trung tuyen')

else writeln('Ban da khong trung tuyen can co gang hon nua');

readln

end.