5.cоставьте программу для определения значения следующих выражений : а)0,5x в квадрате /(a+b)

Pascal

var
x,a,b : integer;
r : real;

begin
 readln (x,a,b);
r := (0.5*sqr(x))/(a+b);
writeln (r)
end.