program Hello;
var counter: integer;
begin
  counter := 0;
  while counter < 100 do
  begin
    // Если остаток от деления на 13 == 0, то оно кратно 13
    if counter mod 13 = 0 then
    begin
        writeln('Число: ', counter, ' кратно 13');
    end;
    counter := counter + 1
  end;
end.