rand

program rand;
var
    i:integer;
    P:integer;
    result:integer;
    nums:array[0..9] of integer;
begin
    //Создаём массив
    for i := 0 to length(nums) - 1 do nums[i] := random (20) - 10;

    writeln('Введите число: ');
    readln(P);

    for i:= 0 to length(nums) - 1 do begin
        if (nums[i] mod 3 = 0) and (nums[i] > P) then writeln(nums[i]);
    end;
end.