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

Var a,b,c,y,x,:integer;
begin
read(a,b,c);
if a<b<c then
  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;