20
Объяснение:
var
a,b,c,x:integer;
begin
a:=10;
b:=20;
c:=30;
x:=b;
if 2*a>b then x:=a;
If 2*c<x then x:=c;
Writeln (x);
end.
20
Объяснение:
var
a,b,c,x:integer;
begin
a:=10;
b:=20;
c:=30;
x:=b;
if 2*a>b then x:=a;
If 2*c<x then x:=c;
Writeln (x);
end.