Faiz hesabi

Girilen değerlere göre her ay faiz ve para hesabi yapan program

program faiz(input,output);
var
A,n,f :real;
t,i:integer;
begin
writeln('Parayi Giriniz');
readln(A);
writeln('Aylik Faiz Oranini Giriniz');
readln(n);
writeln('Kac ay hesaplansin');
readln(t);
for i:=1 to t do
    begin
      f:= A*n/1200;
      A:= A+f;
      writeln(i,'.nci Ay sonundaki Paraniz : ',A)
    end;
writeln('Cikmak icin Bir Tusa Basiniz');
readln()
end.