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

program zisla;

uses crt;

var a, b, c, d, s, g, n, v: real;

begin

cls;

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.

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

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