Help ребят очень нужно это дз

1.

var a, y, b:integer;

begin

y:=0;

readln(a, b);

y:=(a+2*b)/(a*a+1)

write(y);

end.

2.

x1, x2, x3, sum, mult:integer;

begin

sum:=0; mult:=0;

readln(x1, x2, x3);

sum := x1+x2+x3;

mult := x1*x2*x3;

write('Sum: ', sum, ' Mult: ', mult);

end.