Склавиатуры вводятся 3 числа x,y,z.вычислить значения выражений x+y+z и x*y*z и максимальное из них вывести на экран. в паскале

Var x,y,z,a,b: integer;
begin
readln (x);
readln (y);
readln (z);
a:=x+y+z;
b:=x*y*z;
if a>b then writeln (a);
if b>a then writeln (b);
end.