Chương trình:
uses crt;
var tg,l,t,i:longint;
begin
clrscr;
write('Nhap so tien gui:');
readln(tg);
write('Nhap so lai suat:');
readln(l);
write('Nhap so thang:');
readln(t);
{vì bạn không bảo mình chỉ ra số tg (tiền gửi sau t(tháng) thì mình chỉ chỉ ra các biến sau khi bạn nhập vào thôi}
writeln('So tien:',tg);
writeln('Lai suat:',l);
writeln('So thang:',t);
readln
end.