Var
a, b, c:integer;
begin
readln(a, b, c);
if (a<b) then begin
if (a<c) then
writeln(a);
end
else
if (b<c) then
writeln(b)
else
writeln(c);
end.
2 Мб = 2048 кБ
2 Гб = ( Если Мегабит ) = 16384 ( Если Мегабайт ) = 2048
2 Tб = 2048 Гб
Var
a, b, t: integer;
begin
readln(a, b);
if b > a then begin
t := a;
a := b;
b := t;
end;
writeln(a mod b = 0);
end.