Помогите составить Блок-схему и программу для вычисления суммы и произведения 3 чисел

program zadacha;var a,b,c,s,p: integer;beginwriteln ('Введите три числа');readln (a,b,c);s:=a+b+c;p:=a*b*c;writeln ('Сумма равна ',s);writeln ('Произведение равно ',p);end.