Составьте программу, заменяющую меньшее из двух данных чисел на среднее…

program lkcfndsl; uses crt; var a,b,s,g: real; beginclrscr; readln (a,b); s: =(a+b) /2; g: =sqrt (a*b); if a>b then a: =g else a: =s; if b>a then b: =g else b: =s; writeln (a,b); readln; end. Надеюсь так понял.