program Project2;
var a:array[1..5] of integer; //допустим 5 элементов
i:integer;
begin
WriteLn('vvedi 5 elemtntov massiva cherez probel:');
Readln(a[1],a[2],a[3],a[4],a[5]);
for i:=1 to 5 do
if a[i]>0 then
begin
a[i]:=a[i]*10;
Writeln(a[i]);//вывод только положительных элементов
end;
Writeln; //разделитель
for i:=1 to 5 do //Вывод всех элементов
WriteLn(a[i],' ');
ReadLn;
end.