Используя метод нисходящего проектирования,разработать схему алгоритма и составить программу вычисления функции при заданных значениях аргументов. (язык pascal)

// PascalABC.Net 3.0, версия 1066function t(a,x:real):real;begin  if a>=x then t:=2*a*x  else t:=a/(2*x)end;function w(a,x:real):real;begin  w:=sqr(x)+cos(a*x+t(a,x))end;var  a,x:real;begin  a:=0.5;  while a<=1.9 do begin    Writeln('a=',a);    x:=0.2;    while x<=2.2 do begin      Writeln('x=',x:3:1,', w=',w(a,x):9:6);      x:=x+0.5      end;    a:=a+0.2  endend.Результат выполнения программы:a=0.5x=0.2, w= 0.995336x=0.7, w= 1.250221x=1.2, w= 2.130705x=1.7, w= 3.432775x=2.2, w= 5.189615a=0.7x=0.2, w= 0.953089x=0.7, w= 0.590626x=1.2, w= 1.865152x=1.7, w= 3.064023x=2.2, w= 4.712057a=0.9x=0.2, w= 0.897709x=0.7, w= 0.176189x=1.2, w= 1.555538x=1.7, w= 2.667957x=2.2, w= 4.264064a=1.1x=0.2, w= 0.829992x=0.7, w=-0.183700x=1.2, w= 1.233950x=1.7, w= 2.306743x=2.2, w= 3.949154a=1.3x=0.2, w= 0.750914x=0.7, w=-0.426485x=1.2, w= 1.407617x=1.7, w= 2.037078x=2.2, w= 3.840096a=1.5x=0.2, w= 0.661610x=0.7, w=-0.509965x=1.2, w= 2.074693x=1.7, w= 1.901291x=2.2, w= 3.962090a=1.7x=0.2, w= 0.563366x=0.7, w=-0.419629x=1.2, w= 2.426715x=1.7, w= 1.920695x=2.2, w= 4.286946a=1.9x=0.2, w= 0.457595x=0.7, w=-0.171179x=1.2, w= 2.288943x=1.7, w= 1.924966x=2.2, w= 4.739599