Город а находится в х милях от лондона. напишите программу, которая вычислит расстояние между этими в километрах (5 миль равны 8 километрамв виде блок схемы

//pascal var   arr: array [1..255] of byte;   i, n, a, b: byte; begin randomize; //в pascalabc.net можно убрать write('введите количество элементов массива: '); readln(n); writeln; writeln('    ***исходный массив***    '); for i : = 1 to n do begin   arr[i] : = random(50);   write(arr[i], ' '); end; writeln; writeln; write('введите диапазон a и b: '); readln(a, b); writeln; writeln('номера элементов'); for i : = 1 to n do if ((arr[i] > = a) and (arr[i] < = b)) then   write(i, ' '); writeln; readln; end. 

Var   m: array [1..7] of integer;   i: byte; begin randomize; writeln('исходный массив.'); for i : = 1 to 7 do begin   m[i] : = random(61)+12;   write(m[i],' '); end; writeln; writeln; writeln('утроили стоящие на нечетных местах.'); for i : = 1 to 7 do begin   if i mod 2 < > 0 then m[i] : = m[i]*3;   write(m[i],' '); end; writeln; writeln; writeln('утроили четные на нечетных местах.'); for i : = 1 to 7 do begin   if ((i mod 2 < > 0) and (m[i] mod 2 = 0)) then m[i] : = m[i]*3;   write(m[i],' '); end; end.