program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
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.