Даны целые числа x,y,z. вычислить max(x+y+z, xyz) начертить блок-схему составить программу в паскале

Программа:
var x,y,z,max:integer;
 begin
write('x=');readln(x);
write('y=');readln(y);
write('z=');readln(z);
if x+y+z>x*y*z
  then max:=x+y+z
 else max:=x*y*z;
writeln('max=',max);
end.
Схема - в файле