64=2^6=6бит~1байт
1байт=8бит
1 совокупность программных и лингвистических средств общего или специального назначения
Const n=25;
var a:array[1..n] of integer;
i,j,p:integer;
begin
for i:=1 to n do a[i]:=random(50)-20;
for i:=1 to n do write(a[i]:4);
writeln;
for i:=1 to 12 do
if (a[i] mod 2 = 0) then a[i]:=2*a[i];
for i:=14 to n-1 do begin
for j:=14 to n-1 do
if a[j]<=a[j+1] then begin
p:=a[j]; a[j]:=a[j+1]; a[j+1]:=p;
end;
end;
for i:=1 to n do write(a[i]:4);
<span>end.</span>
<span>var N, x, y, i: integer; </span><span>
begin
write(' N = ');
readln(N); </span>
<span>for i:=1 to N do </span>
<span>begin
writeln ('x='); </span>readln(x);
writeln ('y='); readln(y);
if y=abs(x) tnen write(' принадлежит ')
else write(' не принадлежит ');
end;
<span>
end.</span>
Здесь всё можно сделать через копирование части слова и конкатенации (склеивания) частей, например, так:
program z;
var str:string;
begin
str:='ЦВЕТОВОДСТВО';
writeln(copy(str,1,4)); {копировать из строки, начиная с 1 символа, 4 буквы}
writeln(copy(str,5,4)); {копировать из строки, начиная с 5го символа, 4 буквы}
writeln(copy(str,8,1)+copy(str,3,2)+copy(str,9,4));
writeln(copy(str,6,3)+'А');
end.