Объяснение:
var
a,b,c:integer;
begin
read(a,b,c);
if (a<=b) and (a<=c) then write(a) else
if (b<=a) and (b<=c) then write(b) else
if (c<=a) and (c<=b) then write(c);
end.
