Дано 4 числа найти сумму чисел, извлечь количество сотен, если четное, то найти среднее этих

program zz1;
var a, b, c, d, s, k:integer; // задаем переменные целого типа
begin
write(' введите первое число '); // вводим с клавиатуры первое число
read(a);
write(' введите второе число '); // вводим с клавиатуры второе число
read(b);
write(' введите третье число '); // вводим с клавиатуры третье число
read(c);
write(' введите четвертое число '); // вводим с клавиатуры четвертое число
read(d);
s:= a + b + c + d;
writeln(' сумма чисел = ', s);
k:=(s mod 1000) div 100;
write(' количество сотен = ', k);
if k mod 2 = 0 then write( ' среднее чисел = ', (a+b+c+d)/4)
else write(' произведение чисел = ', a*b*c*d);
end.