Олимпиадные задачи

«Интересные   числа»   (100   баллов).  

Решение

var n,i:longint;
begin
read(n);
i:=1;
while i*i<n do
i:=i+1;
i:=i-1;
write(i div 2);
end.