Пожалуйста посчитайте пожалуйста. это очень срочно.пожалуйста​

program sapch;

uses

crt;

var

k, s, c: integer;

var

sr: real;

begin

s := 0;

c := 0;

k := 1;

while k <> 0 do

begin

readln(k);

if ((k div 100) > 0) and ((k div 100) < 10) then

begin

s := s + k;

c := c + 1

end ;

end;

writeln;

if c = 0 then

writeln('net')

else

begin

sr := s / c;

writeln(sr: 0: 1);

end;

readln;

end.