Решение задач в Pascal ABC

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

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