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

Uses crt;

var a, b, c, i, i_:integer;

begin

write ('Введите 1 число: ') ;

readln (a) ;

write ('Введите 2 число: ') ;

readln (b) ;

write ('Введите 3 число: ') ;

readln (c) ;

i:=a+b+c;

i_:=a*b*c;

writeln ('Сумма: ', i) ;

writeln ('Произведение: ', i_) ;

end.