16 = 2^4 значит символ веси 4 бит
Вес текста = 384 * 4 бит = 1536.0 бит = 192.0 байт = 0.1875 Кбайт
если впереди и справа стена, закрасить клетку, повернуть влево и двигаться вперед.
если справа нет стены, повернуть направо и двигаться вперед.
Program abc;
var a,b,c,sum,col:integer;
begin
readln(a);
b:=0;
col:=0;
sum:=0;
while a<>0 do
begin
c:=a;
while c<>0 do
begin
b:=b+1;
a:=a div 10
end;
if b=4 then
col:=col+1;
sum:=sum+a;
readln(a)
end;
writeln(sum);
writeln(col);
end.
var
i:integer;
s:string;
const
glas=['Й','У','Е','Ы','А','О','Э','Я','И','Ю'];
beginwrite ('Vvedite predlohenie: ');
readln (s);
i:=1;
while i<=length (s) do
begin
if ((i=1) or (s[i-1]=' ')) and (s[i] in glas) then
begin
while not ((s[i] in ['.',',',';','!','?',':',' '])) and (i<=length (s)) do
begin
write (s[i]);
i:=i+1;
end;
writeln;
end;
i:=i+1;
end;
readln;
end.