program picaso; uses crt;
var a,b,c,minim:real;
procedure min(a,b:real ; var minim:real);
begin
    if a>b then minim:=b else minim:=a;
end;
begin clrscr;
    writeln('a');readln(a);
    writeln('b');readln(b);
    writeln('c');readln(c);
    
    min(a,b,minim);
    min(minim,c,minim);
    
    writeln('Min=',minim);
    readln;
end.