begin
writeln('Давай по новой, Миша, число хуйня');
goto Net;
end;
until true;
S:=0;
if round(sqrt(W[l]-ww))=sqrt(W[l]-ww) then diff:=1;
l:=l+1;
until (diff=1) or (l>i);
If diff=0 then
end;
fs:=1;
repeat
fs:=fs+1;
end;
until (first=1) or (fs>i);
repeat