Составить программу высота сосны в начале года 1,8 м…

Program first; var a,b: real; n: integer; beginreadln (n); if n=0 then beginwriteln ('Сосна почти не выросла за этот промежуток времени'); exit; a: =1,8; b: =(1,8*15) /100; for i: =1 to n-1 dob: =b+(b*90) /100); writeln ('Висота сосны через ',n,' лет равна', a+b); end.