CHÚC BẠN HỌC TỐT!!!
Trả lời:
program kaito;
uses crt;
var toan, van, anh, tb: real;
begin
clrscr;
write('Nhap diem toan: '); readln(toan);
write('Nhap diem van: '); readln(van);
write('Nhap diem anh: '); readln(anh);
tb:=(2*(toan+van)+anh)/5;
writeln('Diem trung binh la: ',tb);
readln
end.