Решение задачи Minmax 24

#include <stdio.h>
int main(void)
{
    int n,i;
    float r1=0,r2=0,maxsum=0;
 
    printf("N:");
    scanf("%i", &n);
    for (i=1; i<=n; ++i){
        r2=r1;
        printf("%i>",i);
        scanf("%f", &r1);
 
        if (i==2) maxsum=r2+r1;
        if (r1+r2>maxsum) maxsum=r2+r1;
    }
    printf("%f\n",maxsum);
    return 0;
}

import random

N = random.randrange(3,15)
print("N = ",N)

L = [random.randint(1, 15) for i in range(N)]
print("Initial:",L)

mx = L[0] + L[1]
for i_curr, i_next in zip(L,L[1:]):
    x = i_curr + i_next
    if x > mx:
        mx = x
    #print(i_curr,i_next)
print("\nMaximum of pairs:",mx)

mx = L[0] + L[1]
for i in range(1,len(L)-1):
    x = L[i] + L[i+1]
    if x > mx:
        mx = x
    #print(L[i],L[i+1])
print("\nMaximum of pairs:",mx)
									

program Minmax24;
 
var
  R1,R2,MaxSum:Real;
  N,i:Integer;
 
begin
  MaxSum:=0;
  R1:=0;
  R2:=0;
  Write('N:');
  Readln(N);
  for i:=1 to N do
   begin
     R2:=R1;
     Write(i,' число:');
     Readln(R1);
 
 
     if i=2 then MaxSum:=R2+R1;
     if R1+R2>MaxSum then MaxSum:=R2+R1;
 
    end;
   writeln(MaxSum);
end.