uses
crt;
const
n=100;
var
chisla:set of byte;
i:byte;
procedure eratosfen(i:byte);
var
z:byte;
begin
if i>=n then exit;
z:=i;
while z<=n do
begin
inc(z,i);
if z in chisla then exclude(chisla,z)
end;
eratosfen(i+1)
end;
begin
clrscr;
chisla:=[1..n];
eratosfen(2);
for i:=1 to n do
if( not(i in chisla)) then write(i:4);
end.