*Trực tiếp:
var A:array[1..100] of inteegr;
*Gián tiếp
type kmang=array[1..100] of integer;
var A:kmang;
*Chương trình
program tinhtien;
uses crt;
var td,ta,th,tk,t:longint;
begin
clrscr;
write('Nhap tien dien: '); readln(td);
write('Nhap tien an: '); readln(ta);
write('Nhap tien hoc: '); readln(th);
write('Nhap so tien cac khoan khac: '); readln(tk);
t:=td+ta+th+tk;
write('Tong so tien chi tieu trong 1 tuan la: ',t);
readln
end.