program sksk;
uses crt;
var a, b, c, min : integer;
begin
clrscr;
write('nhap so nguyen thu nhat :');readln(a);
write('nhap so nguyen thu hai :');readln(b);
write('nhap so nguyen thu ba :');readln(c);
min := a;
if b < min then min := b;
if c < min then min := c;
writeln('so nho nhat trong ba so la :', min);
readln
end.