Сделайте надо я выложил фото сделайте

всего длина окружности составляет 2пr, а половина - пr

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.

  1951 г - введен в эксплуатацию первый отечественный компьютер мэсм с хранимой программой, созданный под руководством академика с. а. лебедева.

файл с исходным текстом программы на паскале должен иметь расширение pas.