найти результат вычисления арифметического выражения y=a(x+1), где a=2, x принадлежит [-5;15] с шагом =1. вычислить все значения и найти количество элементов <10

[MrFarick]

1.найти результат вычисления арифметического выражения y=a(x+1), где a=2, x принадлежит [-5;15] с шагом =1. вычислить все значения и найти количество элементов <10.
только не через for тоесть не так

(var
  y, a: real;
  k, x: integer;
 
begin
  a := 2;
  k := 0;
  for x := -5 to 15 do
  begin
    y := a * (x + 1);
    writeln('x: ', x, ', y: ', y);
    if y < 10 then 
      inc(k);
  end;
  writeln('k: ', k);
end.)

а , то препод не берет
2.найти площадь кольца, если внутренний радиус которого равен 20, а внешний заданному числу r (r>20).

[Plague]

const a=2;
begin
  var y:=range(-5,15,1).Select(x->a*(x+1));
  y.Println;
  writeln(y.Count(x->x<10))
end.

[newerow1989]

Про кольцо

const r1=20;
      r2=40;
var s:real;
begin
   s:=pi*r2*r2-pi*r1*r1;
   Writeln(s:8:5);
   Readln;
end.

[MrFarick]

напишите с while или repeat , буду очень благодарен

[Hitoku]

const a=2;
var
  y,x,k:integer;
begin
  x:=-5; k:=0;
  repeat
    y:=a*(x+1); inc(x);
    write(y,' ');
    if y<10 then inc(k);
  until x=16;
  writeln; write(k);
end.

Plague, это можно решить в одну строку

begin
  Print(range(-5,15,1).Select(x->2*(x+1)).Println.Count(x->x<10));
end.