Составить алгоритм среднего арифметического 7 введенных чисел

Нужно в виде схемы

vars: real;i: byte;a: array [1..7] of integer;beginfor i:=1 to 7 dobeginwriteln('Введите ', i, ' число: ');read(a[i]);s:=s+a[i];end;s:=s/7;writeln('Среднее арифметическое: ', s);end.