Даныдействительные a, b, c…

Program Task; Var a, b, c, d: Integer; Function Max (a, b: Integer): Integer; BeginIf a > b ThenResult: =aElseResult: =b; End; Function Min (a, b: Integer): Integer; BeginIf a < b ThenResult: =aElseResult: =b; End; BeginWrite ('a='); ReadLn (a); Write ('b='); ReadLn (b); Write ('c='); ReadLn (c); Write ('d='); ReadLn (d); WriteLn ('max (a, b)+min (a, b)+min (c,d)=', Max (a, b)+Min (a, b)+Min (c,d); WriteLn ('max (a, b, c, d)+min (a, b, c)=', Max (Max (a, b) , Max (c, d)+Min (Max (a, b) , c); ReadLn; End.