Program Viktoria20;
Var i,k, quantity, odd : integer;
Begin
quantity:=20;
odd:=0;
For i:=1 to quantity do
begin
k:=random(quantity);
if (k mod 2 <> 0 ) then odd:=odd+1;
if (k<100 and k>9) then if (k mod 3 = 0 ) then WriteLn(k);
end;
WriteLn('');
WriteLn('количество нечетных:', odd);
end.
Подскажите где я ошиблась, и почему приложение выдает ошибку?((( ​