Даны четыре числа, если они задыне в порядке возрастания (1,2,3,4) то каждое возвести в квадрат, иначе найти их полусумму

Program ch;

var x1, x2, x3, x4, i:integer;

begin

writeln ('введите 4 числа') ;

readln (x1, x2, x3, x4) ;

if (x1 < x2) and (x2 < x3) and (x3 < x4) then

begin

x1:=sqr (x1) ;

writeln ('квадрат для x1 = ', x1) ;

x2:=sqr (x2) ;

writeln ('квадрат для x2 = ', x2) ;

x3:=sqr (x3) ;

writeln ('квадрат для x3 = ', x3) ;

x4:=sqr (x4) ;

writeln ('квадрат для x4 = ', x4) ;

end

else write ('полусумма = ', (x1+x2+x3+x4) / 2) ;

end.