program Hello;
var counter, sum :integer;
begin
  counter := 0;
  while sum < 100 do
  begin
     sum := counter * 13;

     if sum > 100 then break;
     writeln('Число: ', sum, ' кратно 13');
     counter := counter + 1;
  end;
end.