Var
A:integer;
S:real;
Begin
S:=0;
Write('A = ');ReadLn(A);
While A>0 do
Begin
S:=S+A;
A:=A-1
End;
WriteLn('S = ',S);
End.
1 байт = 8 бит
18 байт = 18*8 бит = 144 бит
Это упорядоченная совокупность данных, которая хранится на диске и занимают отдельную область внешней памяти.