Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  somy
Language: PASCAL
Code:
program_n;
var n,i:byte;
    prim:boolean;
begin
write('n=');
readln(n);
repeat
for i:=2 to n/2 do
begin
if(n mod i)=0 then
prim:=0;
end
if prim:=1 then
writeln(prim);
until n=0;
writeln(n);
end.
Comments: