помогите пожалуйста.очень срочно.

составьте блок схему и программу для нахождения минимального из 2 х чисел введенных с клавиатуры

Program one;var min,a,b:integer;beginwriteln('vvedite chisla');readln(a,b);if a>b then min:=b else min:=a;writeln(min);end.вроде так