1) Масив з 25 елементів заповнений випадковими числами з інтервалу [0:12). 

 Роздрукувати всі елементи масиву великі 7

Program xa;
var 
  a:array [1..25] of integer;
  i,n:integer;
begin
  randomize;
  for i:=1 to 25 do
  begin
    a[i]:=random(13);
    if a[i]>7 then
      Write(a[i]:4)
  end;
  readln
end.