program deb;

uses crt;

const

n=100;

var

a: array[1..n] of integer;

b,i,j:integer;

begin

a:=20;

randomize;

writeln ('new masiv');

for i:=1 to n do

begin

a[i]:=Random(100);

write(a[i], ' ');

end;

writeln;

for i:=3 to n-1 do

a:=-5;

for j:=1 to n-i do

if a[j] mod 20 then

begin

b:=a[j];

a[j]:=a[i+1];

end;

writeln('sort masiv');

for i:=1 to n do

write(a[i]: ' ');

end.