program
integer a;
integer b;
logical c
begin
a:=2;
while a<100 do
    b:=2;
    c:=true;
    while b<a do
        if a = a / b * b  then
             c:=false
        end;
        b:=b+1
    end;
    if c then write a end;
    a :=a+1
end
end.