var
a, b: integer;
begin
write(Введите a: );
readln(a);
write(Введите b: );
readln(b);
var x := Range(a, b);
var y:=(x.Where(x -> (x>=10) and (x<=99)));
writeln(Двузначные числа от A до B: );
y.Println;
writeln(Двузначные числа, которые делятся на 15: );
y.Where(x -> (x mod 15)=0).Println;
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.