Это рекурсия, F генерирует число (n+1) и (n+2), если n< 5
При вводе n =1 программа выводит на экран числа, равные (п+1) и (n+2 ), если раннее генерированное n<5 Вот эти числа:
1
2
3
4
5
6
5
4
5
6
3
4
5
6
5
Var
a: array[1..100] of integer;
i, n: integer;
begin
n := 50;
writeln('Данные массива:');
for i := 1 to n do
begin
a[i] := random(60);
write(a[i], ' ');
end;
writeln();
{изменение элементов}
writeln('Новые значения:');
for i := 1 to n do
begin
if a[i] mod 4 = 0 then
a[i] := 0;
write(a[i], ' ');
end;
end.
Function G(n:integer):integer;
begin
if n=1 then G:=1
else G:=G(n-1)*n
end;
begin
Writeln(G(5))
end.
Тестовый результат
120
6 вариантов букета) Пометь как лучший ответ, пожалуйста)