Turbo Pascal题目~

program xx1;
var
i,j:integer;
a:boolean;
begin
a:=true;
read(j);
while (afalse)or(ij) do
begin
i:=i+1;
if j mod i=0 then a:=false;
end;
if a then writeln('yes')
else writeln('no');
end.
program xx2;
var
a:string;
i:integer;
begin
read(a);
i:=length(a);
while i0 do
begin
write(a[i]);
i:=i-1;
end;
end.