256=2^8
8-бит
4*640*350*8=7168000 бит = 875 килобайт
что бы биты перевести в килобайты нужно биты разделить на 8192 ( 2^13)
<span>В 1895 году. ( <span>Приёмник Попова )</span></span>
P.S программа работает для русских символов. Если нужны латинские, то поменяйте все "а","у" и "х" на соответствующие
program n1;
uses crt;
var
st:string;
i:integer;
begin
writeln('Введите строку'); readln(st);
for i:=1 to length(st) do
if (st[i]='а') and (st[i+1]='х') then st[i]:='у';
writeln(st);
<span>end.</span>