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

program zisla;uses crt;var a,b,c,d,s,g,n,v: real;begincls;write('введите 4 числа');read(a,b,c,d);s:=a+b+c+d;g:=s/100;if g=g/2 then begin v:=s/4; writeln('среднее этих чисел=',s); end else begin n:=a*b*c*d; writeln('произведение этих чисел',n) end; end.

решал на паскале абс

Ставь лучшее решение