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

можно было решать и циклом, но тогда нужен был бы массив

var x1, x2, x3, x4: real;begin writeln('введите 4 числа '); read(x1, x2, x3, x4); if (x1 < x2) and (x2 < x3) and (x3 < x4) then writeln('квадраты = ', sqr(x1), ' ', sqr(x2), ' ', sqr(x3), ' ', sqr(x4)) else writeln('полусумма = ', (x1 + x2 + x3 + x4) / 2);end.

program ch;var x1,x2,x3,x4,i:integer;beginwriteln('введите 4 числа');readln(x1,x2,x3,x4);if (x1 < x2) and (x2 < x3) and (x3 < x4) thenbeginx1:=sqr(x1);writeln('квадрат для x1 = ', x1);x2:=sqr(x2);writeln('квадрат для x2 = ', x2);x3:=sqr(x3);writeln('квадрат для x3 = ', x3);x4:=sqr(x4);writeln('квадрат для x4 = ', x4);endelse write('полусумма = ',(x1+x2+x3+x4)/2);end.