Var a:string;
begin
writeln('Введите строку');
readln(a);
write(a[2]);
write(a[length(a)-1]);
<span>end.
</span>
Индекс
============================
var
s: string;
begin
readln(s);
write(s.Split(' ')[0], ' ');
foreach s1: string in s.Split(' ') do
if (s1 <> s.Split(' ')[0]) then
write(s1, ' ');
<span>end.</span>
1024*768*16=(2^10) * (3*2^8)*(2^4) = 3*2^22 бит =
=3*2^19 байт = 3*2^9 Кбайт=3*512 Кбайт =
=1536 Кбайт