Даны действительные числа x, y. меньшее из этих двух чисел заменить их полусуммой, а большее – их удвоенным произведением

program anutka1506; uses crt; var  x,y,s,p: real; begin  writeln('введите числа: ');   write('x='); readln(x);   write('y='); readln(y);   writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   s: =(x+y)/2;   p: =2*x*y;   if x< y then          begin              x: =s;               y: =p;           end        else            begin                x: =p;                 y: =s;             end;   writeln('x=',x,'              y=',y); end.

артефакт,инстинкт,антрацит,оригинал.

в цикле sum [i]: =sum+mas[i,j];