const
k = 10;
type
tK = array[1..k] of integer;
var
i: byte;
a: tK;
procedure PrintPos(a: tK);
begin
for i := 1 to k do
if a[i] > 0 then write(a[i], ' ');
writeln;
end;
Read(a[i]);
PrintPos(a);
end.
const
k = 10;
type
tK = array[1..k] of integer;
var
i: byte;
a: tK;
procedure PrintPos(a: tK);
var
i: byte;
begin
for i := 1 to k do
if a[i] > 0 then write(a[i], ' ');
writeln;
end;
begin
for i := 1 to k do
Read(a[i]);
PrintPos(a);
end.