вывод координат

[shelest]

writeln (' koordinaty vektora B:');
 for j:=1 to m do
Begin
sr:=0;
for i:=1 to n do
sr:=sr+c[i,j];
Write ('x;y;z;',sr div n);

как сделать так что бы при выводе координат вектора X присваивалось первое значение Y второе,а Z третье ?

[Андрей.12]

если я вас правильно понял, то у вас в ответе выводится трехзначное число, вот код разделения трехзначного числа по цифрам

var i,b,m,h,n,c:integer;
begin
readln(b);
n:=b div 100;{1}
m:=b-n*100;
h:=m div 10;{2}
c:=m-h*10;{3}
readln;
end.