327680 - информационный вес в битах/10240(20*64*8)=32
K=320 с
i=8 бит/с
I - ?
I=K*i=320 с * 8 бит/c = 320 c * 1 байт/с = 320 байтов
Переменная chp должна быть типа integer. И нужно исправить строку<em> s[1]:=chp; </em>на строку <em>s[1]:=s[chp];</em>
uses crt;
var a,n,code,chp:integer;
var s:string;
var ch1:char;
begin
writeln('Введи число, первые и последние цифры поменяются местами');
readln(a);
str(a,s);
ch1:=s[1];
chp:=length(s);
s[1]:=s[chp];
s[chp]:=ch1;
val(s,n,code);
writeln('Из числа ',a,' получилось число ',n);
end.