Паскаль / Паскаль / Program2

program O_O;
var a,b,c,min,x,y,z:integer;
begin
     write('a='); readln (a);
     write('b='); readln (b);
     write('c='); readln (c);
     x:=2*a-b;
     y:=sqr(c);
     z:=b+c;

     if x<y then
        if x<z then min:=x
               else min:=z
             else
        if y<z then min:=y
               else min:=z;
     writeln('min=', min);


end.