с во какие ресурсы могут быть уменьшены?
2)что влияет на объем задействованной памяти?
3)расставить приоритеты.
4)как можно алгоритм сделать более эффективным?
5)как проанализировать эффективность алгоритма?

program Calc;
var

a, b: integer;

number : integer;

begin

writeln('Добро в наш калькулятор/You are welcome! Введите значение a =');

read(a);

writeln('Введите значение b =');

read(b);

writeln('Выберите что хотите сделать, 1 + , 2 - , 3 / , 4 * , 5 ^2 , 6 корень');

readln(number);

if number = 1 then

writeln('a + b = ', a+b)

else

If number = 2 then

writeln('a - b = ', a-b)

else

If number = 3 then

writeln('a : b = ', a/b)

else

If number = 4 then

writeln('a * b = ', a*b)

else begin

If number = 5 then

writeln('a^2 = ', sqr(a));

writeln('b^2 = ', sqr(b));

end; begin

If number = 6 then

writeln('Корень из a = ', sqrt(a));

writeln('Корень из b = ', sqrt(b));

за использование нашего калькулятора (Автор: Хамидов Алишер/Thank you for using my calc. (Author:Khamidov Alisher)');

writeln('You can find me on Instagram @khamidoff_ali/Вы можете найти меня в Инстаграм @khamidoff_ali');

end; 　 　 　 end.

1)

CLS
RANDOMIZE TIMER
INPUT "N = ", N
DIM D%(N)
PRINT "D("; N; "):";
K = 0
FOR i = 1 TO N
    D%(i) = RND * (2 * N + 1) - N
    PRINT " "; D%(i);
NEXT i
PRINT
INPUT "T = ", T
FOR i = 1 TO N
    IF D%(i) = T THEN
       K = K + 1
    END IF
NEXT i
PRINT "K = "; K
END

2)

CLS
RANDOMIZE TIMER
DIM D%(14), C%(14)
PRINT "D(14):";
K = 0
FOR i = 1 TO 14
    D%(i) = RND * 41 - 20
    PRINT " "; D%(i);
    IF D%(i) < 7 THEN
       K = K + 1
       C%(K) = D%(i)
    END IF
NEXT i
PRINT
PRINT "C("; K; "):";
FOR i = 1 TO K
    PRINT " "; C%(i);
NEXT i
END