Срочно!!!!
НАПИШИТЕ БЛОК-СХЕМУ !!! ПОЖАЛУЙСТА
Найти среднее арифметическое четных элементов в массивах А(15) и С(9) из интервала [10;30]

PROGRAM lr1;
CONST N = 9 ; M = 15;
TYPE MASSIV = ARRAY [1..m] OF INTEGER;
VAR A,C:MASSIV; I:INTEGER;S1, S2:real;
{*ПРОЦЕДУРА ВВОДА ЭЛЕНТОВ МАССИВА*}
PROCEDURE INPUT (VAR X: MASSIV; K: INTEGER);
VAR I: INTEGER;
BEGIN
FOR I: = 1 TO K DO
BEGIN
WRITE (' ВВЕДИ МАССИВ ');
READLN (X[I]);
END;
END;
{*ПРОЦЕДУРА ВЫВОДА ЭЛЕНТОВ МАССИВА НА ЭКРАН*}
PROCEDURE OUTPUT (VAR X: MASSIV; K: INTEGER);
VAR I: INTEGER;
BEGIN
WRITE (' ИСХОДНЫЙ МАССИВ');
FOR I: = 1 TO k DO
WRITE (X[I]); WRITELN;-
END;
{*ПОДПРОГРАММА - ФУНКЦИЯ ОБРАБОТКИ МАССИВА *}
FUNCTION SARF (X: MASSIV; K: INTEGER): real;
VAR S,kol,i: INTEGER ; SA:real;
BEGIN
S: = 0;kol: = 0;
FOR I: = 1 TO K DO
IF (X[I] MOD 2 = 0) and (X[I]> = 10) and (X[I]< = 30) THEN BEGIN S: = S+X[I]; kol: = kol+1;end;
SA: = S/kol;
SARF: = SA;
END;
{*ОСНОВНАЯ ПРОГРАММА *}
BEGIN
WRITELN ('INPUT MASSIV A');
INPUT (A, m);
OUTPUT (A, m);
S1: = SARF (A, m);
WRITELN ('среднее арифметическое массива A = ', S1);
WRITELN ('INPUT MASSIV C');
INPUT (C, n);
OUTPUT (C, n);
S2: = SARF (C, n);
WRITELN ('среднее арифметическое массива C = ', S2);
END.