Блок схема

[Andrey7284]

Ребят, помогите пожалуйста сделать блок схему к программе

Вот сама программа:

program laba1_19;
  Uses crt;
  const n=20;
type mas=array[1..n]of integer;
var a   :mas;
    max,min,r,i:integer;
procedure vvod(var a:mas);
var i:integer;                       {индекс (номер) элемента массива}
   ch: char;                         {переменная для хранения кода символа нажатой клавиши}
begin
    TextColor (black);          {цвет символов}
    ClrScr;		{очистка экрана}
    gotoxy(20,3);		{вывод текста в указанном месте экрана}
                      
   Writeln('ВАШЕМУ ВНИМАНИЮ ПРЕДСТАВЛЯЕТСЯ ПРОГРАММА,');
                      gotoxy(13,4);
   Writeln('КОТОРАЯ ОПРЕДЕЛЯЕТ МАКС. И МИН. ЧИСЛА В МАССИВЕ ИЗ 20 ЧИСЕЛ,');
                      gotoxy(7,5);
   Writeln('И ВЫЧИСЛЯЕТ РАЗНОСТЬ МЕЖДУ НИМИ ЗАМЕНЯЯ ЕЮ ЧЕТНЫЕ ЭЛЕМЕНТЫ МАССИВА ');
                     gotoxy(35,6);
                          textattr:=green;
    Writeln('ВНИМАНИЕ!');
                          Textattr:=white;
                     gotoxy(21,7);
   Writeln('Размерность данного массива должна быть');
                     gotoxy(21,8);
   Writeln('в интервале от 2 до 100!');
                     gotoxy(40,12);
		textattr:=yellow;
   Writeln('');
   gotoxy(40,13);
   Writeln('');
   gotoxy(49,14);
   Writeln('');
   gotoxy(40,15);
   Writeln('');
   gotoxy(20,24);
   textattr:=white;
   Writeln('Нажмите любую клавишу для продолжения…');
   Ch:=readkey; 		                           {считывание символа с клавиатуры}
ClrScr;
for i:=1 to n do
begin
Write('Введите ',i:2, '-й элемент:');
Readln(a[i]);
end;
end;


procedure vivod(var a:mas);
var i:integer;
begin
   for i:=1 to n do
       write(a[i],' ');
end;

Begin
    vvod(a);
      Writeln('Исходный массив');
    vivod(a);
          max:=0;
          min:=30;
     for i:=1 to n do
         begin
            if a[i]>max then max:=a[i];
            if a[i]<min then min:=a[i];
         end;
writeln;
writeln('Max= ',max,' Min= ',min);

r:=max-min;
for i:=1 to n do
if (i mod 2)=0 then a[i]:=r;
     writeln ('Результат');
    vivod(a);
End.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Vanta11a]

Сколько заплатить готовы?