Хелп ребят нужно сделать домашку а я глупый

1. Программа ввода с клавиатуры трёх чисел. . . :

var a, b, c, s, m:Integer;

begin

s:=0;

m:=0;

readln(a);

readln(b);

readln(c);

s:= a + b + c;

m:= a * b * c;

writeln(' : ');

writeln('Сумма равна ', s);

writeln('Произведение равно ', m);

end.

2. Программа вычисления по формуле. . . :

var a, b:Integer;

y:Real;

begin

readln(a);

readln(b);

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

writeln(y:0:1);

end.