Написать программу вычисления произведения первых 10 четных целых чисел.

SysUtils;
var
a,b,c,d:real;
begin
read(a,b,c,d);
if d=0 then begin
while (sqr(a)*b<288) do begin
b:=b+1;
end;
d:=a*sqr(b);
end
else if c=0 then begin
b:=sqrt(d)*(-1);
while (a*sqr(b)<>81) do begin
a:=a+1;
end;
c:=sqr(a)*b;
end;
writeln(a:1:0,' ',b:1:0,' ',c:1:0,' ',d:1:0);
end.

но она постоянно получает тайм аут, помогите увеличить скорость ее работы любым путем

1 0 1 1 1 0 0 1 1 0 1 1 1 0 0 1

то разрядность процессора равна:

ЛАМПОЧЕК ДОЛЖНО НАХОДИТСЯ НА ТАБЛО, ЧТОБЫ С ЕГО ПОМОЩЬЮ ПЕРЕДАТЬ 18 РАЗЛИЧНЫХ СИГНАЛОВ?

2.текстовый редактор b.изображение 3.графический редактор c.ячейка 4.звуковой редактор d.тег 5.HTML-редактор. e.трек

2. Составить программу удвоения большего из двух чисел.

3. Написать программу вычисления произведения всех двузначных четных чисел.

4. Определить количество двузначных натуральных чисел, сумма цифр которых равна заданному числу N.

Все в Pascal. Очень прошу помочь

вычисления суммы чисел от 6 до 10. Написать программу вычисления n! (факториал числа n), где n- целое неотрицательное число.

Определение факториала:

0!=1, 1!=1, 2!=1*2, 3!=1*2*3, ……,n!=1*2*3*…*(n-1)*n.

Другими словами n!- это произведение n натуральных чисел.

написал программу неправильно. Ниже приведён фрагмент его программы, в котором содержится пять ошибок:

k:=1;

f:=0;

while k<n do

f:=f*k;

k:=k+1