Составить алгоритм решения : рост ребенка на начало года составляет 100 см. за месяц он подрастает на3%. каков его рост через год?

Var
  i:integer;
  x:real;
begin
x:=100;
for i:=1 to 12 do  x:=x*1.03;
writeln('Рост равен ',x);  
end.