program HelloWorld;
uses crt;
var I:integer;
A:array[I...5] of integer;
begin
Clrscr;
for i:=1 to 5 do
begin
writeln('a[',I,']-?');
Readln(a[i]);
End;
For i:=1 to 5 do
begin
If (a[i]>0 then writeln('a[',I,']=',a[i]));
end;
end.
uses crt;
var I:integer;
A:array[I...5] of integer;
begin
Clrscr;
for i:=1 to 5 do
begin
writeln('a[',I,']-?');
Readln(a[i]);
End;
For i:=1 to 5 do
begin
If (a[i]>0 then writeln('a[',I,']=',a[i]));
end;
end.