ShirokovP

Verified answer

Var
  a, b,sa,sg: real;

begin
  write('Введите a ');readln(a);
  write('Введите b ');readln(b);
  sa:=(a + b) / 2;
  sg:=sqrt(a * b);
  if a < b then begin
    a := sa;
    b := sg;
  end
  else begin
    a := sg;
    b := sa;
  end;
  writeln('a= ', a:0:2, ' ', 'b= ', b:0:2);
end.