Почему появилась байтовая память?

s=0

for i = 1 to n

  s=s+i

next i

var n,i: integer;

begin

  read(n);

  for i: = 2 to n-1 do

      if n mod i = 0 then writeln('no');

end.

var n,i: integer;

s: string;

begin

  read(s);

  for i: = 1 to length(s) do

      if s[i]="a" then n: =n+1;

  writeln(n);

end.

program num1; uses crt; var i : integer; beginclrscr; for i: =20 to 40 doif (i mod 2) = 0 then write(i,' '); end.

var a,b,c,r,x,y: integer;

begin

  read(a,b,c);

  if (a=b) or (a=c) or (b=c) then

        writeln('ravnobedrennyj');

  read(a,r);

  if  (a*a> pi*r*r) then writeln('kvadrat bolshe')

  else writeln('krug bolshe');

  read(x,y);

  if x> y then writeln(y*y,' ',x*x*x,' ',(x+y)/2);

  else writeln(x*x,' ',y*y*y,' ',(x+y)/2);

end.