Как разобрать этот пример в паскале: z: =(5*a*c+3(c-d))/a*(b-c)/b

не поянятен вопрос..

если нужно посчитать z, то:

 

program pr1; var a,c,d,b: integer; z: real; beginreadln(a,b,c,d); z: =b*(5*a*c+3*(c-d))/a*(b-c); writeln(z: 8: 3); end.

Program z1;   var a: array [1..1000] of integer;       b: array [1..1000] of integer; i,j,n,min,m: integer; begin  write('введите размер массива - ');   readln(n);   randomize;   for i: =1 to n do  begin    a[i]: =random(50)-0;     write (a[i],' ');   end;       j: =1;   for i: =2 to n-1 do  begin    if ((a[i]> a[i-1]) and (a[i]> a[i+1]))      then begin            b[j]: =a[i];             j: =j+1;             end;   end;       m: =j-1;   writeln;   for j: =1 to m do    write (b[j],' ');       min: =b[1];   for j: =2 to m do    if (b[j]< min) then min: =b[j];       writeln;   writeln(min);       end.

Function ds(byval n as integer) as integer       'сумма цифр в числе n       dim s as integer       s = 0       do while n < > 0               s = s + n mod 10               n = int(n / 10)       loop       ds = s end function function isgood(n as integer) as boolean       'сохраняется ли сумма цифр при умножении числа на 2, ?       dim etalon as integer, k as integer       etalon = ds(n)       isgood = true       k = 2       do while isgood and k < 10               isgood = (ds(n * k) = etalon)               k = k + 1       loop end function sub aaa()       dim i as integer, s as string       s = ""       for i = 10 to 99               if isgood(i) then s = s + str(i)       next i       msgbox s end sub тестовое решение: 18 45 90 99