Дано 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.