Первый вариант - функциональный, второй - процедурный.
Рекомендую функциональный, потому что процедурный вариант жуткий щиткод и кринж, да и питон сам по себе язык функциональный. Удачи.
Program abc;
var a,b,c,i,i1:integer;
begin
readln(a,b);
if(a<b) then
for i:=1 to b do
begin
i1:=i+1;
c:=i1+i;
end;
if(a>b) then
for i:=1 to a do
begin
i1:=i+1;
c:=i1+i;
end;
writeln(c);
end.
Var x,y:real;
begin
read(x);
y:=1/x;
print(y);
end.