подпрограма

[misha25525]

намисать подпрограму(функцыю/процедуру) в Паскале
max(a,b,c)-max(a+1,b-2,c)

[Google2010]

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.