Составить программу, запрашивающую у пользователя 10 действительных чисел, подсчитывающую и выводящую на экран их сумму

Составить программу, запрашивающую у пользователя 10 действительных чисел, подсчитывающую и выводящую на экран их сумму и произведение.
Подойдет ли эта программа?

var
s,p: real;
begin
writeln ( 'Введите 10 чисел:' );
s := 0;
p := 1;
for var i := 1 to 10 do
begin
var x: integer;
read(x);
s += x;
p *= x;
end;
writeln('Сумма введенных чисел = ',s);
writeln('Произведение введенных чисел = ',p);
end.