Написать алгоритм программы в виде блок-схемы : 1. Меньшее из двух заданных чисел возведите в квадрат, а большее уменьшите в 2 раза.Если числа равно, то найдите их сумму. 2. Даны 2 переменные А и В. Если A>B, то вывести на печать их произведение, в противном случае сумму

1. Ряд строится по принципу золотого сечения. Формула для вычисления члена последовательности такая:
x(2)=x(1)+1,
x(3)=x(2)+2,
...
x(n)=x(n-1)+n-1

В нашем алгоритме для вычисления следующего члена последовательности будем запоминать текущий член последовательности в переменной kp.
Затем получаем очередной член последовательности суммируя kp и переменную цикла i - 1. Делаем вычисления, выводим на экран и переписываем переменную kp  новым значением.
 
var i,k,kp:integer;
begin
kp:=1;
for i:=1 to 10 do begin
  k:=kp+i-1;
  kp:=k;
  writeln(k:5, k*k:6, k*k*k:8);
  end;
end.

1. Ряд строится по принципу золотого сечения. Формула для вычисления члена последовательности такая:
x(2)=x(1)+1,
x(3)=x(2)+2,
...
x(n)=x(n-1)+n-1

В нашем алгоритме для вычисления следующего члена последовательности будем запоминать текущий член последовательности в переменной kp.
Затем получаем очередной член последовательности суммируя kp и переменную цикла i - 1. Делаем вычисления, выводим на экран и переписываем переменную kp  новым значением.
 
var i,k,kp:integer;
begin
kp:=1;
for i:=1 to 10 do begin
  k:=kp+i-1;
  kp:=k;
  writeln(k:5, k*k:6, k*k*k:8);
  end;
end.