Cod sursa(job #139550)

Utilizator cezarbotolanbotolan cezar cezarbotolan Data 20 februarie 2008 13:36:02
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.37 kb
Raporteaza aceasta sursa 
program codo;
var n,s,d,a,b:longint;
begin
  readln(a,b);
  s:=0;
  for n:=a to b do
  begin
  d:=2;

   while n mod d<>0 do d:=d+1;
  if d=n then begin
  writeln('prim ',n);s:=1;
  end;
  end;
  if s=0 then writeln('nu sunt nr prime in acest interval');
 readln;
end.