Составить программу на языке Паскаль: Даны три числа. Найти сумму и произведение этих чисел

Var

x1, x2, x3, s, p:real;

begin

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

readln (x1) ;

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

readln (x2) ;

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

readln (x3) ;

s:=x1+x2+x3;

p:=x1*x2*x3;

writeln ('Сумма равна: ', s) ;

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

readln;

end.