uses crt;

var v,t,a,tong: integer; tb: real;

begin

clrscr;

write ('Nhap diem mon van: '); readln (v);

write ('Nhap diem mon toan: '); readln (t);

write ('Nhap diem mon anh: '); readln (a);

tong:=v+t+a;

writeln ('Tong diem ba mon la: ',tong);

if tong mod 3 = 0 then writeln ('Tong diem ba mon chia het cho 3')

else writeln ('Tong diem ba mon khong chia het cho 3');

tb:=tong/3;

if tb>=5 then write ('Dat') else write ('Khong dat');

readln;

end.

uses crt;

var a, b, c, t : byte; tb : real;

begin

clrscr;

write('nhap diem van, toan, anh : ');readln(a, b, c);

t := a + b + c;

tb := t / 3;

if t mod 3 = 0 then writeln('tong diem chia het 3')

else writeln('tong diem khong chia het cho 3');

if tb >= 5.0 then writeln('Dat') else writeln('Khong dat');

readln

end.