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

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