uses crt;
var a:array [1..200] of integer;
      n,i,s:integer;
      ngto:boolean;
begin
clrscr;
s:=0;
readln(n);
for i:=1 to n do
begin
write(a[i]);
end;
ngto:=true;
for i:=2 to trunc(sqrt(n)) do
if n mod i =0 then ngto:=false;
if ngto = true then
write('n la so ngto'');
s:=s+a[i];
readln;
end.