Паскаль / Паскаль / 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.