Заполните массив в размерностью 5 элементов положительными и отрицательными целыми числами и выведите его на экран монитора. сохраните программу и оправьте на проверку учителю.

Var b:array[1..5] of integer;
m:integer;
begin;
randomize;
for m:=1 to 5 do
begin;
b[m]:=random(-10,10);
writeln(b[m]);
end;
end.