Необходимо вывести все четные числа на отрезке [a;a•10]​

P.S Лучше используйте PascalABC.Net

begin  var a := ReadInteger('Введите А: ');  var b := a * 10;  Print(Range(a, b).Where(x -> x mod 2 = 0)); end.