Var top, sum, An, An1 :integer;
Begin
read(top);
sum:=2;
An:=1;
An1:=1;
repeat
An := An + An1;
An1 := An - An1;
sum := sum + An;
write(An:6)
until sum >= top
End.
,глаза,уши,нос,вообщем органы чувств.
С. Потому что бинарные числа самые простые числа
Можно уменьшить отступы(сверху, снизу), межстрочный интервал, убрать лишние переходы на новую строку, сменить шрифт на более компактный, изменить размер шрифта