Срочно!!!! очень нужно!!!! задачи по программированию!!!!

Question

даны три числа a b c. если они положительные z=a+b+c если они отрицательные z=(A+B)*C в противном случае z=a*b*c

Turbo pascal,разветвляющиеся процессы

если можно поподробней

program name;
var
a,b,c,z1,z2,z3:real;
begin
writeln(a,b,c);
readln(a);
realn(b);
readln(c);
if(a>0)and(b>0)and(c>0) then
z1:=a+b+c;
else if(a<0)and(b<0)and(c<0)then
z2:=(a+b)*c;
else z3:=a*b*c;
end.

правильно ли это?

Сергей Кошелев · Accepted Answer

if(a>0 && b>0 && c>0) z = a+b+c; else if(a<0 && b<0 && c<0) z = (a+b)*c; else z = a*b*c;

Пассив Andrey · Answer

а язык программирования не забыла указать? if (a>0) and (b>0) and (c>0) then z:=a+b+c else if(a<0) and (b<0) and (c<0) then z:=(a+b)*c else z:=a*b*c;