PASCAL
Найти число, обладающее следующим свойством: если в нем зачеркнуть последнюю цифру, то получится число в 14 раз меньше исходного

var a:integer;

begin

for a:=1 to 100 do  

if a div 10 * 14 = a then writeln(a)

end.