Помогите, необходимо написать блок схему и программку к задачке на языке

Uses Crt; // подключение модуля Crt
Var
   a,b,c,S:real; // объявление переменных вещественного типа
Begin
ClrScr; // очистка консоли перед новым вводом переменных
Write('Введите три числа: '); // вывод приглашения к вводу
ReadLn(a,b,c); // считывание введённых с клавиатуры чисел в переменные a,b и c
S:=a+b+c; // запись суммы чисел в переменную S
if S gt; 10 then Write('Их среднее арифметическое: ',S/3)
else if S = 10 then Write('Их творенье: ',a*b*c)
     else Write('Я ничего не понимаю');
ReadLn // ожидание нажатия пробела (чтоб консоль не закрылась сходу)
End.


Пример работы программки:

Введите три числа: 1 7 10
Их среднее арифметическое: 6

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