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

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