Получить максимальное число из трех целых чисел. даны целые числа x, y, z. вычислить max(x+y+z, x*y*z). вычислить min(x+y+z, x*y*z). ,у меня постоянно выдает ошибку в паскале

Var x, y, z, m, n, min, max: integer; begin readln(x,y,z); m: =x+y+z; n: =x*y*z; if m> n then begin max: =m; min: =n; end else begin max: =n; min: =m; end; writeln('max(',m,',',n,')=',max); writeln('min(',m,',',n,')=',min); end.

фамилия

                  имя

          отчество