Помогите, нужно написать блок схему и программу к задаче на языке ТП( Турбопаскаль) 
Пожалуйста, с полным обьяснением.
Вложение.
Это одна задача.
Пожалуйста

Вычислить произведение, а не произведение, делённое на три!

var a,b,c:real; {Объявление нужных переменных}begin {Начало программы}write('Введите 3 числа: '); {Вспомогательный текст}readln(a,b,c); {Ввод данных}if((a+b+c) > 10) then writeln('Среднее арифметическое: ',((a+b+c)/3):1:0) {Условие Если сумма > 10}else if((a+b+c) = 10) then writeln('Произведение: ',(a*b*c):1:0) {Условие Если сумма = 10}else writeln('Я ничего не понимаю') {Если условия не выполняются}end. {Конец}

uses Crt; // подключение модуля CrtVar   a,b,c,S:real; // объявление переменных вещественного типаBeginClrScr; // очистка консоли перед новым вводом переменныхWrite('Введите три числа: '); // вывод приглашения к вводуReadLn(a,b,c); // считывание введённых с клавиатуры чисел в переменные a,b и cS:=a+b+c; // запись суммы чисел в переменную Sif S > 10 then Write('Их среднее арифметическое: ',S/3)else if S = 10 then Write('Их произведение: ',a*b*c)     else Write('Я ничего не понимаю');ReadLn // ожидание нажатия пробела (чтобы консоль не закрылась сразу)End.Пример работы программы:Введите три числа: 1 7 10Их среднее арифметическое: 6