Вот.
О плюсах и минусах суди сам(а).
Var n,n1,n2,n3,n4,sum:integer;
Begin
readln(n);
<span> n1:=n div 1000; </span>
<span> n2:=n div 100; </span>
<span> n2:=n2 mod 10; </span>
<span> n3:=n div 10; </span>
<span> n3:=n3 mod 10; </span>
<span> n4:=n mod 10; </span>
<span>n2:=n2*n2; </span>
<span>n3:=n3*n3; </span>
<span> sum:=sum+n2+n3; </span>
writeln('sum=',sum);
end.
1 Мб=1000000 байт
0,5 Мб=1000000\2=500000 байт
1 байт=8 бит
512\8=64 байт
1 Гб=1024*1024 Кб
2048 Кб=2048\1048576=0,001953125 Гб
2 байт=2*8=16 бит
1 Кб=1000 байт
1000000 байт=1000000\1000=1000 Кб
В 32 768 битах сожержится 4 килобайта: 32768 / 8 / 1024=4
Var S : String;
n : Byte;
Begin
Readln(S);
While Pos('а',S)>0 do
Begin
Inc(n);
S[Pos('а',S)]:='б';
end;
Writeln(S,' всего замен: ',n);
end.