Даны три действительных числа a, b, c. Если a < b < c, то найти их сумму и произведение,...

Question

Даны три действительных числа a, b, c. Если a < b < c, то найти их сумму и
произведение, если a = b = c, то увеличить числа в 10 раз. В остальных
случаях уменьшить числа на 10. Построить блок-схему и программу для
решения задачи.

Answer 1

Var a,b,c,y,x,:integer;
begin
read(a,b,c);
if a  begin 
    x:=a+b+c;
    y:=a*B*c; 
    writeln(x,y);
 end
else
  begin 
   if a=b=c then 
   writeln(a*10, b*10, c*10);
   else writeln(a-10, b-10, c-10);
  end;