Вывести на экран 6 случайных чисел от 0 до 20 и номера элементов больше 10

Var

i:integer;

mas: array [1 ... 6] of integer;

begin

writeln ('6 случайных чисел:');

randomize;

for i:=1 to 6 do begin

mas[i]:=random (0,20);

write (mas[i], ' ');

end;

writeln (' ');

writeln ('Номера элементов > 10:');

for i:=1 to 6 do begin

if mas[i] > 10 then

write (i,' ');

end;

end.