Ну если исходить из того, что китайская письменность основана на иероглифах, то ближе всего скорее древнеегипетская письменность, которая также основана на иероглифах. Думаю так.
Program gt2;
var i,j,s:integer;
a:array[1..4,1..4]of integer;
begin
randomize;
for i:=1 to 4 do
for j:=1 to 4 do
a[i,j]:=random(7)+12;
for i:=1 to 4 do
begin
s:=0;
for j:=1 to 4 do
s:=s+a[j,i];
writeln(s);
end;
<span>end.
program gt3;
var i,j,s:integer;
a:array[1..7,1..7]of integer;
begin
randomize;
for i:=1 to 7 do
for j:=1 to 7 do
a[i,j]:=random(7)+12;
for i:=1 to 7 do
begin
s:=0;
for j:=1 to 7 do
if(a[j,i]<14)then s:=s+1;
writeln(s);
end;
<span>end.
program gt4;
var i,j,p:integer;
a:array[1..3,1..3]of integer;
begin
for i:=1 to 3 do
for j:=1 to 3 do
read(a[i,j]);
for i:=1 to 3 do
begin
p:=a[i,1];
a[i,1]:=a[i,2];
a[i,2]:=p;
end;
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
write(a[i,j],' ');
end;
writeln;
end;
<span>end.
</span></span></span>
Меню -> Вставка -> Рисунок
Ты можешь сделать это с помошью программы Paint
type goods = record name:String; price:real; end;const GOODS_COUNT = 5;var goodsList:array[1..GOODS_COUNT] of goods;id:integer;begin goodsList[1].name:='iPhone 5s'; goodsList[1].price:=760.0; goodsList[2].name:='Samsung Galaxy s5'; goodsList[2].price:=540.0; goodsList[3].name:='Simens m60'; goodsList[3].price:=12.5; goodsList[4].name:='HTC ONE X'; goodsList[4].price:=450.5; goodsList[5].name:='LG L9'; goodsList[5].price:=600.0; write('Write goods id:'); readln(id); if ( ( id < 0 ) or ( id > GOODS_COUNT ) ) then writeln('WRONG ID') else writeln(goodsList[id].name,' price =',goodsList[id].price); <span>end.</span>