Dim a(1 to 20) as Integer
Dim i as Integer
Randomize Timer
For i=1 To 20
a(i)=Int(50*Rnd)-25
Print a(i);
Next i
Print
For i=1 To 20
If a(i)>0 Then Print i;
Next i
Print
7 бит ииииииииии ето точно
Var m,n :integer;
begin
readln(n,m);
if n mod m = 0 then
writeln(' делится ')
else
writeln('неделится');
end.
(отметь как лучшее пжл)