Записать на языке Паскаль

var a, b, c, min, max, answer : integer; begin read(a,b,c); min := a; max := b; if min > b then min:=b; if min > c then min:=c; if max < b then max:=b; if max < c then max:=c; writeln("max =", max); writeln("min =", min); if (max > 0) and (min > 0) then answer:=a+b+c else answer:=a*b*c; writeln("ответ = ", answer); end.