//пример  random

var a: array [1..5] of integer ;

i:integer;

begin

for i:=1 to 5  do begin

 a[i]:=random(101);

  writeln (a[i], ';');

  end ;

For i:=1  to 5

do a[i]:=a[i]+3;

For i:=1  to 5

do write (a[i], ';');

end.