Задача Pascal ABC, с циклами while или repeat Опции

[MrFarick]

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

[Федосеев Павел]

program Func;

const
  a = 2.0;
var
  x, y:  real;
  Count: integer;
begin
  Count := 0;
  x := -5;
  repeat
    y := a * (x + 1);
    if y < 10 then
      Inc(Count);
    writeln('x=', x: 6: 2, ' y=', y: 6: 2);
    x := x + 1.0;
  until x > 15;
  writeln('y<10: ', Count);

end.