#include <iostream>
using namespace std;
int main(){
int n, j=0;
cin>>n;
unsigned long long arr[3*n+1];
unsigned long long arrb[n];
arr[0]=0; arr[1]=1;
for (int i=2; i<3*n+1; ++i) arr[i]=arr[i-1]+arr[i-2];
for (int i=3; i<3*n+1; i+=3, ++j) arrb[j]=arr[i];
for (int i=0; i<n; ++i) cout<<arrb[i]<<" ";
}
Var
i, n, a, b,n1: integer;
begin
write('Введите число ');
Readln(n);
n1 := n;
a := n mod 10;
case a of
2, 3: n := n * ((n div 10) mod 10);
7, 8, 9: begin for i := 1 to length(inttostr(n)) do begin b := b + (n mod 10);n := n div 10; end;n := n1 - b; end;
1, 4, 5, 6, 0: n := n div 10;
End;
Write(n);
<span>end.</span>
Такая информация скорее всего называется устаревшей
Program ff;
var
summ, count_terms:integer;
begin
summ:=0;
count_terms:=0;
while summ<>324 do
begin
summ:=summ+4;
count_terms:=count_terms+1;
end;
Writeln('Кол-во слагаемых: ',count_terms);
readln();
end.