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

Program one;
var min,a,b:integer;
begin
writeln('vvedite chisla');
readln(a,b);
if a>b then min:=b else min:=a;
writeln(min);
end.

вроде так