Mình viết luôn cho cả chương trình nha. Tick cho mình có động lực.
Program Tong_diem ;
uses crt ;
var t, v, a, T : integer ;
Begin
clrscr;
write (' Nhap diem mon toan:') ; readln (t) ;
write (' Nhap diem mon van:') ; readln (v) ;
write (' Nhap diem mon anh:') ; readln (a) ;
T:= t+v+a;
write ('Tong diem 3 mon la:',T);
readln;
End.
bạn có thể viết code như sau:
var t,v,a:longint;
begin
write('nhap diem toan:');readln(t);
write('nhap diem van:');readln(v);
write('nhap diem anh:');readln(a);
write('tong diem la:',t+v+a);
readln;end.