Проблема с программой

[Alex_12Proxy]

Помогите составить программу!!!
Программа спрашивает какое количество цифр использовать для их перемножения, например 2 цифры, значит будет например 24*34-а*б, где а и б являются случайными числами выбираемые самим компом, а так же программа должна спрашивать количество нужных примеров, считать количество верных и неверных ответов и по окончании выводить результат.
"так же программа должна спрашивать количество нужных примеров, считать количество верных и неверных ответов" Это пояснясняю:
прога говорит: Какое количество цифр выбрать?
прога говорит: Сколько нужно примеров выдать?
допустим я поставил количество цифр = 3, а примеров = 2
получается приверно так!

[Hacker19_90]

циклы randomize random и поехали!
В чём собственно проблема-то?

[Alex_12Proxy]

В том что я пока не соображаю, как их составлять. Мне дали задачу и я хочу посмотреть как она будет выглядеть в голом виде!

[Hacker19_90]

ну да да! Так скажите. что просто делать не охота!
ну как-то так наверно

Writeln ('Количество примеров?');
Readln (count);
Writeln ('Количество цифр');
Readln (count_num);
randomize;
for i := 1 to count do
begin
    p := 1;
    for j := 1 to count_num do
    begin
        chislo := random(101)-50; {ну это так примерно jn -50 до 50}
        Write (chislo:5);
        p := p*chislo;
    end;
    Writeln ('= ', p:5);
end;

[Alex_12Proxy]

Спасибо) Очень помог, щас буду разбираться!