Ответ:
Var
X, i: longint;
Begin
Readln(l);
For x := - 100 to 100 do
Begin
If l*x-5*x+2*l=2 then writeln(x);
End;
End.
Вроде так. дальше протяжку сделайте и все
Var
a: array[1..100] of integer;
k, i, n: integer;
begin
read(n);
for i := 1 to N do
begin
A[i] := random(40) - 20;
if (a[i] mod 3 = 0) and (a[i] mod 5 > 0) then
k := k + 1;
Write(a[i], ' ');
end;
WriteLn();
WriteLn(k);
end.
8192 бит = 8192 / 1024 = 8 байт
8 байт = 8/8 = 1 КБ