(* Program losuje liczby całkowite z przedziału  <0,5> tak długo aż wylosowane zostana
 wszystkie liczby z podanego przedziału. *)
program Untitled;
var
   i:integer;
   tab1:array[0..5] of integer;
begin
   randomize;
   for i:=1 to 5 do
   tab1[i]:=

end.