Помогите, плииз! Найти значение и составить блок-схему {min

varx,y,z: integer; beginwread (x,y); if x<0 then if x <= y then z: =x else z: =yelse if x >=y then z: =x else z: =y; Writeln (z); readln; end. P.S. Если понравилось решение не забудь отметить как лучшше.