Издают звук, это точно, мы не давно проходили))
4 бита на цвет и 7 бит на адрес клетки (6бит - 64 клетки, 7 бит- 128)
итого 11 бит=1 байт 3 бита
double x, y;
y = (1/x) * (1*sqrt(9/15));
Var
s:string;
i,n:byte;
p:boolean;
begin
Write('Введите строку: ');
Readln(s);
n:=Length(s);
for i:=n downto 1 do
if s[i]=' ' then Delete(s,i,1);
n:=Length(s);
p:=true;
for i:=1 to n div 2 do
if s[i]<>s[n-i+1] then
begin
p:=false;
break
end;
if p then Writeln('Палиндром')
else Writeln('Не палиндром')
end.