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

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

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

C++ #include < iostream> using namespace std; void main() {   float a,b,c;   cin> > a> > b> > c;   if(a*a< 0& & b*b< 0& & c*c< 0)     cout< < "таких нет";   else   {         if(a*a> 0)     cout< < a*a< < " ";     if(b*b> 0)       cout< < b*b< < " ";   if(c*c> 0)     cout< < c*c< < " ";   } system("pause"); }

Var n: integer; begin readln(n); if (n mod 10 =1) and (n< > 11) then               writeln(n,' год') else               if (n> =5) and (n< =20) then                           writeln(n,' лет')               else                           if (n mod 10< =4) and (n mod 10> 0) then                                     writeln(n,' года')                           else                                   writeln(n,' лет'); end.