Блок схему этой написать программу которая запрашивает 7 чисел и выводит их произведение

Начало:                                   program p1;
                                                  uses crt;
                                                var a,b,c,d,e,f,g,p:integer;
                                                   begin
Ввод 7 чисел:                          read( a,b,c,d,e,f,g);
Происходит умнож:                     p:=a*b*c*d*e*f*g;
Вывод:                                       write(p);
Конец:                                        end.