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

var a,i,k: integer;begink:=0;a:=2;x:=-5;while x<=15 do beginy:=a*(x+1);writeln(y);x:=x+1;if y<10 then k:=k+1;end;writeln(k);end.