program Hello;
var counter :integer;
begin
  counter := 0;
  while counter < 100 do
  begin
     writeln('Число: ', counter, ' кратно 13');
     counter := counter + 13;
  end;
end.