Решить в паскаль
Написать программу
z=min{x,y}+max(xy,x+y) и если можно блок схему

Пишет не верная программа

var x,y,z:integer;procedure min(x,y)beginif x>y then return x;else return y;end;procedure max(x,y)var c:integer;c=x+y-ma(x,y);return c;end;beginread (c);z=min(x,y)+max(x*y,x+y);writeln(z);end.