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.
