Какое число выводит на экран фрагмент программы?
a:=32;
b:=16;
c:=(a+b)/2;
d:=a+b-c/4;
writeln(d);

c = (32+16)/2 = 24

d = 32 + 16 - 24/4 = 42

На экран будет вывыдено число 42.

р в квадрате так

var

  n,i,z: integer;

begin

  readln(n);

for i: =1 to n do if n mod i=0 then inc(z,i);

writeln(z);

end.