Установить соответствие между флагами и цветами повышенном фигур​

1) Решение методом рекурсии.
Программа проста в понимании, но неэффективна при больших значениях
var
  n: integer;
function f(i: integer): longint;
begin
  if i < 2 then
    f := 1
  else
    f := f(i - 1) + f(i - 2);
end;
begin
  read(n);
  writeln(f(n));
end.

2) Решение методом динамического программирования. Намного быстрее метода с рекурсией.
var
  i, n: integer;
  f: array[0..50] of longint;
begin
  read(n);
  f[0] := 1;
  f[1] := 1;
  for i := 2 to n do
    f[i] := f[i - 1] + f[i - 2];
  writeln(f[n]);
end.

3) Решение методом моделирования. Использует меньше памяти.
var
  n, a, b, i: integer;
begin
  read(n);
  if n < 2 then
    a := 1
  else
  begin
    a := 0;
    b := 1;
    for i := 0 to n do
    begin
      b := a + b;
      a := b - a;
    end;
  end;
  writeln(a);
end.

1)program primer1;

var х,у,z:integer;

{ описание переменных }

begin { начало программы }

х := 3; { установка значения х }

у := 5; { установка значения у }

z := х + у; { вычисление суммы }

write(z); {вывод результата вычисления на экран }

end. { конец программы }

2) program vetvlenija;

uses crt;

var A:real;

begin

clrscr;

write ('Введите число A: ');

readln (A);

if A>=0 then

writeln ('Вы ввели положительное число');

readln

end.

3) program cikle;

var

i, n: integer;

begin

write ('Количество знаков: ');

readln (n);

 for i := 1 to n do

write ('(*) ');

 

readln

end.

Объяснение:

1) линейный, без ничего

2) ветвление - if then

3) цикл - for