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

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.