//1
Var
x:integer;
begin
readln(x);
if x>100then x:=x+50 else x:=x*2;
writeln(x);
end.
//2
read(x,y);
if x>y then x:=x*2;
if x<y then x:=x+y;
writeln(x)
Объяснение:
//1
Var
x:integer;
begin
readln(x);
if x>100then x:=x+50 else x:=x*2;
writeln(x);
end.
//2
Var
x:integer;
begin
read(x,y);
if x>y then x:=x*2;
if x<y then x:=x+y;
writeln(x)
end.
Объяснение:
это все что я знаю...