Pascal.ABC
Найти все трёхзначные простые числа.

vari, j, t: integer;beginfor i:=100 to 999 do   begin   t:=0;   for j:=2 to i div 2 do      begin      if i mod j = 0 then      inc(t);      if t > 0 then      break;      end;   if t = 0 then writeln(i);   end;end.