Написать )) вычислите минимальное из 3-х чисел,составить блок схему)числа

program tri_chisla;

var a,b,c:integer;

begin

writeln ('Vvedit tri chisla a,b,c');

readln (a,b,c);

If (a<b) and (a<c) then

writeln ('Naymenshim chislom e - ',a)  

else begin   If (b<a) and (b<c) then

writeln ('Naymenshim chislom e - ',b) 

else begin   If (c<b) and (c<a) then

writeln ('Naymenshim chislom e - ',c) end; end; 

        //Я немного не понял какую именно блок схему тебе нужно.

readln

end.