Напишите программу которая вводит с клавиатуры 10 чисел и вычисляет…

Var i: byte; sum,n: integer; pro: longint; beginsum: =0; pro: =0; for i: =1 to 10 dobeginwrite ('Введите ', i, 'число'); readln (n); sum: =sum+n; pro: =pro*n; end; writeln ('Сумма введенных чисел — ', sum); writeln ('Произведение: ', pro); end.