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

Че ета такое no work

varx1,x2,x3,s,p:real;beginwrite ('Введите 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.