Складіть блок-схему змінення місяців протягом чотирьох років використовуючи вкладені цикли​

юра из новгородатоля из москвы

алеша из томска

коля из перми

витя из санкт-петербурга 

253(8)=10101011(2)

2в4(16)=1010110100(2)

48(16)=1001000(2)

program sir; var y,x,h: real; beginx: =280; h: =0.1; while h< =1 do  begin  y: =x*h;   writeln('цена за ',h*1000,' грамм ',y,' руб');   h: =h+0.1  end; end.

var x,s,n: integer;

begin

  repeat

        read(x);

        if x< 0 then n: = n +1;

        if x > 0 then s: =s+x;

  until x=0;

  writeln(n,s);

end.