Var i,a:integer;
begin
for i:=1 to 99 do
if i mod 4=0 then a:=a+i;
write (a);
end.
Если без левых точек в конце( например во 2)-10. ) то:
1) 567
2) -10
5) 8
10) 812
Если точки не просто так, тогда:
1) 567
5) 8
10) 812
program vld;
var
x, y : integer;
begin
read(x);
if x <= -15 then
y := 5 * sqr(x)
else
if (x<= 25) and (- 15 < x) then
begin
y := -x;
writeln(y);
end
else
y := - sqr(x)
end.
3 копейки,т.к. деньги от кол-ва людей не меняются в сумме.