program hhh;
uses crt;
const n=5;
var
a:array[1..n+1] of integer;
i,k,b,x,max,t:integer;
BEGIN
clrscr;
randomize;
for i:=1 to n do begin
a[i]:=random(50) ;
write(a[i]:7);
end;
writeln ;
b:=5;t:=100;k:=20;
for i:=1 to n do
if a[i]=5 then a[i+1]:=k;
for i:=1 to n do
if a[i] mod 3=0 then a[i-1]:=t;
for i:=1 to n do
writeln('a[i]= ',a[i]);
readln;
end.