Вот.
О плюсах и минусах суди сам(а).
Program n1;
var a,b,c,max,min: real;
begin
readln(a,b,c);
if(a>b) and (a>c) then max:=a;
if(b>a) and (b>c) then max:=b;
if(c>a) and (c>b) then max:=c;
min:=a;
if b<min then min:=b;
if c<min then min:=c;
writeln('разность: ',max-min);
end.
Cat.jpeg, foto.bmp, dog.gif, <span>war.wmf</span>
2 в кубе = 8 значит 120 : 3 = 40 символов
Возводишь два числа, складываешь их и делишь на два - среднее арифметическое