Помогите решить цикл Опции

[Beibarys]

помогите решить пожалуйста. скрин ниже.

[Федосеев Павел]

"Помогите" - значит ты тоже что-то делаешь. Покажи наработки и скажи в чём остановка.

[Beibarys]

"Помогите" - значит ты тоже что-то делаешь. Покажи наработки и скажи в чём остановка.

Спасибо что помогли, уже не надо. Сделал уже

Var l: integer, n: integer, o: integer, d: integer, x: integer;
begin
repeat write('Введите кол-во перемножаемых чисел:'); readln(n);
 until ((n >= 5) AND (n <= 10));
while x <> n do 
write('Введите два числа
readl(o); readl(d);
l:=d*o;
write(l);
x:=x+1;
end.