Составьте блок-схему алгоритма для вычисления значений функции y=(15x+4): (9x-2) , при изменении x от 1до 5 с шагом 0, 5.сделать вычисления с excel

Начало (в овале)
x:=1 (прямоугольник, задаем данные)
x<=5 (условие, в ромбе)
y:=(15x+4)/(9x-2) (прямоугольник)
вывод y (параллелепипед)
x:=x+0.5 (прямоугольник) (после выполнения этого действия возвращаемся на проверку условия и проверяем его до тех пор, пока оно выполняется, как только условие не выполняется идём на конец)
конец (овал)

Использовать Чертежник
алг 
нач
опустить перо
сместиться на вектор (0,4)
сместиться на вектор (-1,-1)
поднять перо
сместиться на вектор (4,-3)
опустить перо
сместиться на вектор (-2,0)
сместиться на вектор (2,2)
сместиться на вектор (0,2)
сместиться на вектор (-2,0)
поднять перо
сместиться на вектор (3,0)
опустить перо
сместиться на вектор (2,0)
сместиться на вектор (-2,-2)
сместиться на вектор (2,0)
сместиться на вектор (-2,-2)
поднять перо
сместиться на вектор (5,0)
опустить перо
сместиться на вектор (0,4)
сместиться на вектор (-2,-3)
сместиться на вектор (2,0)
поднять перо
сместиться на вектор (1,-1)
опустить перо
сместиться на вектор (2,0)
сместиться на вектор (0,2)
сместиться на вектор (-2,0)
сместиться на вектор (0,2)
сместиться на вектор (2,0)
поднять перо
сместиться на вектор (3,0)
опустить перо
сместиться на вектор (-2,-2)
сместиться на вектор (0,-2)
сместиться на вектор (2,0)
сместиться на вектор (0,2)
сместиться на вектор (-2,0)
поднять перо
сместиться на вектор (3,-2)
опустить перо
сместиться на вектор (2,4)
сместиться на вектор (-2,0)
сместиться на вектор (3,0)
опустить перо
сместиться на вектор (0,-4)
сместиться на вектор (2,0)
сместиться на вектор (0,2)
сместиться на вектор (-2,0)
сместиться на вектор (2,0)
сместиться на вектор (0,2)
сместиться на вектор (-2,0)
поднять перо
сместиться на вектор (3,-4)
опустить перо
сместиться на вектор (2,2)
сместиться на вектор (0,2)
сместиться на вектор (-2,0)
сместиться на вектор (0,-2)
кон

//PascalABC.NET версия 3.3.5.1636 от 10.03.18
//Если программа не запускается, то обновите версию

const
    handsfree = true;
    nmax = 100;
    random_min = -28;
    random_max = 27;

var
    a: array[1..nmax] of integer;
    i, n, j, count: integer;
    mini, maxi: integer;
    min, max: real;
    temp: real;
    sum, product, harmonic: real;
    k: integer;

begin
    {ввод массива}
    n := nmax;
    if handsfree then
        n := random(nmax - 5) + 5
    else begin
        write('n = ');
        readln(n);
    end;
    
    writeln('Данные массива:');
    for i := 1 to n do
    begin
        if handsfree then begin
            a[i] := random(random_max - random_min) + random_min;
            write(a[i], ' ');
        end
        else
            readln(a[i]);
    end;
    writeln();
    
    {подсчет суммы и произведения и агригатов и кол-ва}
    sum := 0;
    product := 1;
    for i := 1 to n do
    begin
        sum := sum + a[i];
        if a[i] mod 3 = 0 then {если нужен фильтр}
            product := product * a[i];
    end;
    writeln('1) sum = ', sum);
    writeln('2) product = ', product);
    
    {подсчет суммы и произведения и агригатов и кол-ва}
    sum := 0;
    count := 0;
    for i := 1 to n do
    begin
        if i mod 2 = 1 then {если нужен фильтр}
        begin
            count := count + 1;
            sum := sum + a[i];
        end;
    end;
    writeln('3) average (selected) = ', sum / count);
    
    {подсчет суммы и произведения и агригатов и кол-ва}
    sum := 0;
    product := 1;
    count := 0;
    for i := 1 to n do
    begin
        if i mod 2 = 0 then {если нужен фильтр}
            sum := sum + a[i];
        if a[i] < 0 then {если нужен фильтр}
            product := product * a[i];
        if a[i] mod 2 = 1 then {если нужен фильтр}
            count := count + 1;
    end;
    writeln('4) count = ', count);
    writeln('4) sum = ', sum);
    writeln('4) product = ', product);
end.