Составьте программу, заменяющую меньшее из двух данных чисел на среднее арифметическое этих чисел,а большее из двух данных чисел на среднюю этих чисел help ! please

program lkcfndsl;

uses crt;

var a,b,s,g:real;

begin

clrscr;

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.

Надеюсь так понял.