Помогите срочно срочно с информатикой: написать процедуру, которая получает две…

procedure Ch (var a, b: real); var m: real; begin m: =(a+b) / 2; a: =abs (a — m); b: =abs (b — m); end; var a, b: real; begin write ('a='); readln (a); write ('b='); readln (b); Ch (a, b); writeln ('a=', a); writeln ('b=', b); end.