Var Longint mniejsza1 mniejsza2 najmniejsza Real Begin ReadLn div 1000

Var

n, a, b, c, d : Longint;
mniejsza1,mniejsza2,najmniejsza:Real;

Begin

ReadLn(n);

a:= (n div 1000);
n:=n-(1000*(n div 1000));

b:= (n div 100);
n:=n-(100*(n div 100));

c:= (n div 10);
n:=n-(10*(n div 10));

d:=n;

mniejsza1:= ((a+b)-(abs(a-b)))/2;
mniejsza2:= ((c+d)-(abs(c-d)))/2;
najmniejsza:= ((mniejsza1+mniejsza2)-(abs(mniejsza1-mniejsza2)))/2;

WriteLn(najmniejsza:0:0);

End.