Дано 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. Решал на паскале абсСтавь лучшее решение