Как решить на паскале?

Question

Дано три числа. Скласти алгоритм визначальний середнє геометричне цих чисел, якщо всі вони відмінні від нуля й середнє арифметичне в противному випадку. 
Вхідні дані: А, В, З 
Вихідні дані: 
число рівне (А+В+3)/3

Дмитрий · Accepted Answer

program asd;
var a,b,c:integer;
z,s:real;
begin
readln(a,b,c);
if a<>0 then begin
if b<>0 then begin
if c<>0 then z:=sqrt(sqrt(sqrt(a*b*c))) else z:=(a+b+c)/3; end; end;
writeln(z); {это можешь убрать, если не нужно чтобы выводило среднее арифм/геом}
s:=(a+b+3)/3;
writeln