Найдите все двузначные числа , которые делятся на число n или содержат цифру n

18, 19, 27,29, 36, 39, 45,49, 54, 59, 63, 69, 72,79, 81, 89, 90, 91, 92,93,94,95,96,97,98,99

// pascalabc.net 3.2, сборка 1381 от 04.02.2017 // внимание! если программа не работает, обновите версию! type   point=(real,real); procedure getpoint(var q: point); begin   var a,b: real;   write('введите координаты точки: '); read(a,b);   q: =(a,b) end; function distance(a: point): =sqrt(sqr(a[0])+sqr(a[1])); begin   var a,b: (real,real);   getpoint(a);   getpoint(b);   var d1: =distance(a);   var d2: =distance(b);   if d1< d2 then writeln('первая точка ближе')   else       if d1> d2 then writeln('вторая точка ближе')       else writeln('точки равноудалены') end. пример введите координаты точки: 13.7 -11.25 введите координаты точки: 18 12.4 первая точка ближе

// pascalabc.net 3.2, сборка 1381 от 04.02.2017 // внимание! если программа не работает, обновите версию! begin   var age: =readinteger('введите возраст: ');   var gender: =readinteger('введите пол (1-м, 2-ж): ');   if gender=1 then       case age of       0..13: writeln('мальчик');       14..20: writeln('юноша');       21..70: writeln('мужчина');       else writeln('старец')       end   else       case age of       0..13: writeln('девочка');       14..20: writeln('девушка');       21..70: writeln('женщина');       else writeln('старушка')       end end.