Напишите на языке Паскаль программу вычисления по формуле:

где a,b - целые числа

~PascalABC.NET

begin

 var a := ReadInteger2('Введите a и b:');

 write('y = ', (a[0] + a[1])*(a[0] + a[1]) / (2*a[0]));

end.

program formula;

var

a,b:integer;

y:real;

begin

write('Введите а》');

read(a);

write('Введите b》');

read(b);

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

write('y=',y);

readln;

end.