rogram nvm;
var
a :array[1..100] of string;
i,j,k,x,b,f :integer;
begin
for i:=1 to 3 do begin
writeln('vvedite ',i,' stroku');
readln(a[i]);
end;
k:=length(a[i]);
begin
for i:=1 to 3 do begin
f:=0;
for j:=1 to length(a[i]) do begin
x:=1;
while x<length(a[i])-f do begin
x:=x+1;
write(' ');
end;
writeln(a[i][x]:3);
f:=f+1;
end;
end;
end;
readln;
end.
-----------
Как вывести все 3 строки в одну через пробел?