Chương trình pascal tính lãi suất

program bai1;

uses crt;

var tien,x:longint;

       t:real;

begin

clrscr;

write['Nhap so tien: '];   readln[tien];

write['Nhap thang: '];   readln[x];

t:=tien;

for i:=1 to x do

 t:=tien*[102/100];

write['So tien nhan duoc la: ',t:2:2];

readln

end.

program bai2;

uses crt;

var tien,t,n,tien2:longint;

begin

clrscr;

write['Nhap so tien ban dau: '];   readln[tien1];

write['Nhap so tien muon nhan: '];   readln[tien2];

n:=0;  t:=tien1;

while t