Вывести простые числа в диапазоне от 1 до 100
(pascal)

//Pascalvar  i, k, j: byte;begin  for i := 2 to 100 do  begin    k := 0;    for j := 2 to i div 2 do      if i mod j = 0 then        k := k + 1;    if k = 0 then      write(i, ' ');  end;end.