Нужна ! решить по информатике в программе pascal. в первый месяц курс доллара составил a рублей. в каждый следующий месяц он падал на 3%. каким будет курс доллара во второй, третий, n-ный день? (цикл for) урез сколько месяцев он будет ниже b рублей? (цикл while)

Первая часть задания

Program Dollar;

VAR dl:real; mn:integer;

function CD(a:real;m:integer):real;  - функция вычисления курса доллара a на указаный месяц m

var i:integer;

if a>0 then for i:=1 to m do a:=a*0.97;

CD:=a;

end;

BEGIN

writeln('введите начальный курс доллара');

readln(dl);

writeln('введите число месяцев');

readln(mn);

write('курс будет равен');

writeln(CD(dl,mn));

END.