Решение задачи For 34

#include <bits/stdc++.h>
using namespace std;

int main() {
	srand((int)time(0));
	int N = rand() % 50 + 3;
	//N = 50;
	
	long double A1 = 1.0, A2 = 2.0, A3;
	cout.precision(20);
	cout << 1 << " : " << A1 << endl;
	cout << 2 << " : " << A2 << endl;
	for(int k = 3; k <= N; k++) {
		A3 = (A1 + 2*A2)/3.0;
		cout << k << " : " << A3 << endl;
		A1 = A2;
		A2 = A3;
	}
	cout << "N = " << N << endl;
	
	return 0;
}

for N in range(2,33,10):
    print("N = ",N)
    A1 = 1
    A2 = 2
    print(1," : ",A1)
    print(2," : ",A2)
    for k in range(3,N+1):
        A3 = (A1 + 2*A2)/3
        print(k," : ",A3)
        A1 = A2
        A2 = A3
    print()
									

program For34;
var
  Ak,Ak1,Ak2 :Real;
  N, i :Integer;
begin
  Write('Введите N: ');
  Readln(N);
  Writeln('Значения функции:');
  Writeln('A(1)=1');
  Writeln('A(2)=2');
  Ak1:=1;
  Ak2:=2;
  For i:=3  to N do
  begin
   Ak:=(Ak1+2*Ak2)/3;
   Writeln('A(',i,')=',Ak);
   Ak1:=Ak2;
   Ak2:=Ak;
  end;
end.