Информатика 10 класс

информатика 10 класс, помогите

  • program gt;
    var a:array[1..4,1..5]of integer;
    i,j:integer;
    begin
    for i:=1 to 4 do
    begin
    for j:=1 to 5 do
    begin
    a[i,j]:=trunc ((60-30)*random+30);
    write(a[i,j],’ ‘);
    end;
    writeln;
    end;
    end.
    2)
    program gt;
    var b:array[1..4,1..4]of integer;
    i,j,k:integer;
    begin
    k:=0;
    for i:=1 to 4 do
    begin
    for j:=1 to 4 do
    begin
    b[i,j]:=trunc ((60-30)*random+30);
    if(b[i,j] mod 5=0)then k:=k+1;
    end;
    end;
    writeln(k);
    end.