СРОЧНО НУЖНА ПОМОЩЬ! Решить задачу по информатике в программе Pascal. В первый месяц…

Первая часть заданияProgram Dollar; VAR dl: real; mn: integer; function CD (a: real; m: integer): real; — функция вычисления курса доллара a на указаный месяц mvar i: integer; if a>0 then for i: =1 to m do a: =a*0,97; CD: =a; end; BEGINwriteln ('введите начальный курс доллара'); readln (dl); writeln ('введите число месяцев'); readln (mn); write ('курс будет равен'); writeln (CD (dl,mn); END.