Введите с клавиатуры 4 числа, выведите их среднее арифметическое, сумму, произведение. ПЖ СРОЧНО!!!!

var a,b,c,d:integer;begin writeln('Ведите a,b,c,d'); read(a,b,c,d); writeln('Сумма a,b,c,d = ', a+b+c+d); writeln('Произведение = ', a*b*c*d); writeln('Среднее арифметическое = ', (a+b+c+d)/4);end.