Rogram z1;
Var n,I,s,k:integer;
Begin
Writeln ('n=');
Readln (n);
S:=0;k:=0;
If n>=100 then
For I:=100 to n do begin
S:=i+s;
K:=k+1;end;
Writeln (s/k);
Readln ;
End.
Круг получается...............
Можно уменьшить отступы(сверху, снизу), межстрочный интервал, убрать лишние переходы на новую строку, сменить шрифт на более компактный, изменить размер шрифта
1кб-0.000125 -1бит
8192*0.000125=1.024кбайт
Ответ: Б)2
Кажется так. Но ты сам попробуй подумать.