Команди утворюють *

тіло циклу
голову циклу
повторення циклу

1) 120:100*2=2,4 см вырастет ребёнок за 1 месяц
2) 120+2,4=122,4 см рост ребёнка через месяц
3) 122,4:100*2=2,448≈2,45 см вырастет ребёнок за второй месяц
4) 122,4+2,45=124,85 см рост ребёнка через 2 месяца
5) 124,85:100*2=2,497≈2,5 см вырастет ребёнок за третий месяц
6) 124,848+2,5=127,348≈127,35 см рост ребёнка через 3 месяца
7) 127,35:100*2=2,547≈2,55 см вырастет ребёнок за 4 месяц
8) 127,35+2,55=129,9 см рост ребёнка через 4 месяца
9) 129,9:100*2=2,598≈2,6 см вырастет ребенок за 5 месяц
10) 129,9+2,6=132,5 см рост ребёнка через 5 месяцев
11) 132,5:100*2=2,65 см вырастет ребёнок за 6 месяц
12) 132,5+2,65=135,15 см рост ребенка через 6 месяцев
13) 135,15:100*2=2,703≈2,7 см вырастет ребёнок за 7 месяц
14) 135,15+2,7=137,85 см рост ребенка через 7 месяцев
15) 137,85:100*2=2,757≈2,8 см вырастет за 8 месяц
16) 137,85+2,8=140,65 см рост через 8 месяцев
17) 140,65:100*2=2,813≈2,8 см вырастет за 9 месяц
18) 140,65+2,8=143,45 см рост через 9 месяцев
19) 143,45:100*2=2,869≈2,9 см вырастет за 10 месяц
20) 143,45+2,9=146,35 см рост через 10 месяцев
21) 146,35:100*2=2,927≈3 см вырастет за 11 месяц
22) 146,35+3=149,35 см рост через 11 месяцев
23) 149,35:100*2=2,987≈3 см вырастет за 12 месяц
24) 149,35+3=152,35 см рост ребенка через 12 месяцев

Я вариант попроще предложу...

var
  a,b,h,x:real;
begin
  writeln('Введите интервал (a,b) и шаг табуляции h: ');
  readln(a,b,h);
  x:=a;
  {+0.000001 скомпенсирует накопление погрешности х}
  while x<=b+0.000001 do
    begin
    writeln(x:7:3,' ',3*cos(x/2)+4:10:7);
    x:=x+h
    end
end.

Тестовое решение:

Введите интервал (a,b) и шаг табуляции h:
2 4 0.2
  2.000  5.6209069
  2.200  5.3607884
  2.400  5.0870733
  2.600  4.8024965
  2.800  4.5099014
  3.000  4.2122116
  3.200  3.9124014
  3.400  3.6134665
  3.600  3.3183937
  3.800  3.0301313
  4.000  2.7515595