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

program MyProgram;vara,b,c,x:integer;beginreadln(a,b,c,x);writeln('Сумма: ',a+b+c+x);writeln('Произведение: ',a*b*c*x);end.