Составить блок схему. вычислить функцию f=x^2, если x< 0, f= корень из x, если x> 0, f=0, если x=0.

Какое-то запутанное условие. решение "в лоб", без оптимизаций: procedure razmen(a : integer); begin   if a> =500 then   begin       writeln('500 - ',a div 500);       razmen(a-(a div 500)*500);   end   else       if a> =100 then       begin           writeln('100 - ',a div 100);           razmen(a-(a div 100)*100);       end       else           if a> =50 then           begin               writeln('50 - ',a div 50);               razmen(a-(a div 50)*50);           end           else               if a> =10 then               begin                   writeln('10 - ',a div 10);                   razmen(a-(a div 10)*10);               end               else                   if a> =5 then                   begin                       writeln('5 - ',a div 5);                       razmen(a-(a div 5)*5);                   end                   else writeln('1 - ',a); end; begin   razmen(1530); end.

var  

    n: integer;

    i: integer;

    sum: integer;

    result: integer;

begin

    writeln('введите значение n: ');

    readln(n);

   

    sum : = 0;     result : = 1;

    for i : = 1 to n do

    begin

        sum : = sum + i;

        result : = sum * result;

    end;

    writeln('конечное значение = ', result);

end.