Дано 4 числа (без разницы x,y,z,q),составить блок схему для нахождения минимального числа при условии,что все числа неравны.

program abc;var x,min,i:integer;beginmin:=30000;for i:=1 to 4 dobegin  writeln('Ввежите число');  readln(x);  if x<min then min:=x;end;writeln(min);end.