Дано 4 числа отыскать сумму чисел, извлечь количество сотен, если четное,

program zz1;
var a, b, c, d, s, k:integer; // задаем переменные целого типа
begin
write( введите 1-ое число ); // вводим с клавиатуры 1-ое число
read(a);
write( введите 2-ое число ); // вводим с клавиатуры 2-ое число
read(b);
write( введите третье число ); // вводим с клавиатуры третье число
read(c);
write( введите четвертое число ); // вводим с клавиатуры 4-ое число
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.