функцыя

[misha25525]

заменить функцыю на процедуру
var a1,b1,c1:real;
function max(a,b,c:real):real;
var m :real
begin
if a>b then m:=a
else m=b;
if c>m then m=c;
max=m;
end;
begin
read(a1,b1,c1);
writeln(max(a1,b1,c1)-max(a1+1,b1-2,c1):6:2);
readln;end.

[Базиля]

Ну так и в чем проблема? Что не понятно?
P.S. Функция

[D61C76h]

var a1,b1,c1,res1,res2:real;
procedure max(a,b,c:real; var res:real);
begin
if a>b then res:=a
else res:=b;
if c>res then res:=c;
end;
begin
read(a1,b1,c1);
max(a1,b1,c1,res1);
max(a1+1,b1-2,c1,res2);
writeln(res1-res2:6:2);
readln;end.