Информатика 8 класс найдите сумму чётных чисел и произведение нечётных чисел введённых с клавиатуры количество чисел задается с клавиатуры

Program z1; uses crt; var a,b,c,r,r1: real; begin writeln('введите 1, 2 и 3 числа '); readln(a,b,c); r: =a+b+c; r1: =a*b*c; writeln('сумма чисел: ',r); writeln('произведение чисел ',r1); end.

если переменная нужна целая то так:

x: =random(b-a)+a

если можно дробную, то так

x: =(b-a)*random+a

1) 24+18+12=54 (ч.) 2) 54-35=19 (ч.) не любят не один вид спорта. 3) 10+8+5=23 (ч.) - любят 2 или больше видов спорта. 4) 23-19=4 (ч.) - любят все три вида спорта.

ответ: 4 человека любят три вида спорта.