Даны действительные числа x,y,z. Нужно большее из них уменьшить в 2 раза, меньшее увеличить на среднее, а среднее оставить без изменения.

uses crt;
var
a,b,c,min,sr,max: integer;
begin
clrscr;
write ('vvedite 4islo A: ');
readln (a);
write ('vvedite 4islo B: ');
readln (b);
write ('vvedite 4islo C: ');
readln (c);
if (a=b) and (b=c)
then writeln (a,' ',b,' ',c:2)
else if ((c>b) and (b>a))
then begin min:=a; sr:=b; max:=c; end
else if (b>c) and (c>a)
then begin min:=a; sr:=c; max:=b; end
else if (a>c) and (c>b)
then begin min:=b; sr:=c; max:=a; end
else if (c>a) and (a>b)
then begin min:=b; sr:=a; max:=c; end
else if (a>b) and (b>c)
then begin min:=c; sr:=b; max:=a; end
else begin min:=c; sr:=a; max:=b; end;
writeln('max=',max*2,' min=',min*sr,' sr=',sr);
end.

uses crt;
const n=3;
var a: array [1..n] of integer;
i,min,max,sr: integer;
begin
clrscr;
for i:=1 to n do
begin
write ('vvedite 4islo ',i,': ');
readln (a[i]);
end;
min:=a[1]; max:=a[1];
for i:=2 to n do
begin
if a[i]>max then max:=a[i]
else if a[i]<min then min:=a[i]
end;
for i:=1 to n do
if (a[i]<max) and (a[i]>min)
then sr:=a[i];
write ('max=',max/2,' min:=',min*sr,' sr:=',sr);
end.

readln(a,b,c);

if a+b+c>0 then begin // когда сумма больше 0
if a<b<c then begin
a:=a*a*a;
if b>c then begin
b:=b div 4;// неззнаю так нужно или нет
c:=0;
end else begin
c:=c div 4;
b:=0;
end;

writeln(a,' ',b,' ',c);

uses crt;
var x,y,z,mx,mn,sr:real;
begin
clrscr;
writeln('Введите 3 действительных числа:');
readln(x,y,z);
writeln('Сумма чисел=',x+y+z:0:1);
mn:=x;
case ord(y<mn) of
1:mn:=y;
end;
case ord(z<mn) of
1:mn:=z;
end;
mx:=x;
case ord(y>mx) of
1:mx:=y;
end;
case ord(z>mx) of
1:mx:=z;
end;
sr:=x+y+z-mn-mx;
writeln('Меньшее=',mn:0:1,' большеe=',mx:0:1,' среднее=',sr:0:1);
case ord(x+y+z>0) of
1:begin
  writeln('Сумма чисел больше ноля, числа преобразуются');
  mn:=mn*mn*mn;
  mx:=mx/4;
  sr:=0;
  writeln('Меньшее=',mn:0:1,' большеe=',mx:0:1,' среднее=',sr:0:1);
  end;
0:writeln('Сумма чисел не больше ноля, числа не преобразуются');
end;
readln
end.

Program name;
Var x,y,z: real;
  Begin
  '1':=x;
  '2':=y;
  '3':=z;
case
  writeln ('Введите x,y,z');
  Readln (x,y,z);
'1':     Begin
             if x>z and x>y then
             x:=x+2
             Writeln (x);
          End;
'2':   Begin
           if y<x and y<z then
           y:=y+z;
           Writeln (y);
       End;
'3'    Writeln (y);
End.