ребят!! Составить алгоритм блок схему расчета функции y= (2x-0,6):( 3a-0,2), если а=-7, х- целое число из интервала от -2 до 5.

С++
#include <iostream>
#include <ctime>
using namespace std;
int main ()
{
setlocale (0,"russian");
srand (time(NULL));
int N;
cout << "Чётное N=";
cin >> N;
if (N%2==0 && N>0)
{
int *arr=new int [N];
cout << "Случайный массив: ";
for (int i=0;i<N;i++)
{
arr[i]=rand()%200-100;
cout << arr[i] << ' ';
}
cout << endl << "Итог: ";
for (int x=N/2-1;x>=0;x--)
cout << arr[x] << ' ';
for (int y=N-1;y>=N/2;y--)
cout << arr [y] << ' ';
}
else
cout << "Ошибка!";
system ("PAUSE>>VOID");
return 0;
}

var i,s,p:integer; a:array [1..100] of integer;

begin 

s:=0; p:=0;

writeln('Vvedite masiv a:'); 

for i:=1 to 10 do begin

write('a[',i,']=');

readln(a[i]);

end;

for i:=1 to 10 do begin

if a[i]>0 then s:=s+a[i]; 

end;

s:=s*2;

writeln('Udvoennaya suma polozhitelnih elementov=',s);

writeln('Indexi elementov kotorie bolshe prediduschego:');

writeln;

for i:=2 to 10 do begin

if a[i]>a[i-1] then write(i,', ');

end;

for i:=2 to 10 do begin

if ((a[i]>=0) and (a[i-1]>=0)) or ((a[i]<0) and (a[i-1]<0)) then p:=p+1;

end;

writeln;

if p>0 then writeln('Masiv imeet pari sosednih elementov s odnakovimi znakami') else  writeln('Masiv ne imeet pari sosednih elementov s odnakovimi znakami'); 

readln(s);

end.