Ответы и объяснения

2014-03-30T12:25:41+00:00
Program gt;
label 1;
var a,l,i:integer;
begin
a:=1;
while a<>0 do
begin
read(a);
l:=round(sqrt(a));
for i:=2 to l do
if(a mod i=0)then goto 1;
if(a>1)then write(a,' ');
1:
end;
end.