program abc;
var
a, b, x, h: real;
begin
read(a, b);
h := 0.5;
x := a;
while x <= b + h / 2 do
begin
writeln(x:20:9, x * x - sqr(x * x) / 2:20:9);
x := x + h;
end;
end.
По-моему Даша права , но я не уверена
1 отношение между двумя множествами объектов
2 отношение между объектами и множеством объектов
3) отношение между двумя объектами