program avval;
uses
wincrt;
Var
a:array[1..20] of integer;
i:Byte;
sum,j:integer;
Begin
Writeln('enter 20 Numbers');
For i:=1 to 20 do
Read(a[i]);
Writeln;
Sum:=0;
For i:=1 to 20 do
Begin
For J:=1 to (a[i] div 2) do
If (a[i] mod j)=0 Then
SUm:=sum+j;
If sum=a[i] Then
A[i]:=0;
Sum:=0;
End;
Writeln('the output of progeram');
For i:=1 to 20 do
Write(a[i]:6);
End.
پيدا كردن اعداد
اول