var
a, b, pS, pR : double;
begin
writeln('Введите числа :');
readln(a, b);
pS := (a+b)/2;
pR := abs(a-b)/2;
if (trunc(a*b) mod 2= 0) then
if a > b then begin
a := pS;
b := pR;
end
else begin
a := pR;
b := pS;
end
else
if a < b then begin
a := pS;
b := pR;
end
else begin
a := pR;
b := pS;
end;
writeln('a=', a:2:2);
writeln('b=', b:2:2);
end.
