Var
a: integer;
begin
readln(a);
while (a > 3) do
a := a - 4;
writeln(a);
end.
-------------
Если нужно отнимать, даже если число перестанет быть отрицательным после очередной итерации:
var
a: integer;
begin
readln(a);
while (a > 0) do
a := a - 4;
writeln(a);
end.
Алгоритм может быть, например, таким. Если нужно вывести нулевое число Фибоначчи, выведем 1, иначе будем считать. Сохраним в переменную номер текущего числа Фибоначчи (изначально 1) и значения текущего и предыдущего элементов (в начале 1 и 1), затем в цикле будем пересчитывать значения элементов, увеличивая номер текущего элемента. Когда номер элемента совпадёт с нужным, выведем ответ.
Реализация (python 3):
n = int(input())
if n == 0:
print(1)
else:
prev, curr = 1, 1
i = 1
while i < n:
curr, prev = prev + curr, curr
i += 1
print(curr)
Запустив программу, можно узнать, что f10 = 89, f25 = 121393, а f40 = <span>165580141</span>
100_2 = 4
100_3 = 9
100_4 = 16
100_5 = 25
100_6 = 36
100_7 = 49
100_8 = 64
100_9 = 81
100_10 = 100
100_11 = 121
100_12 = 144
100_13 = 169
100_14 = 196
100_15 = 225
100_16 = 256
100_17 = 289
100_18 = 324
100_19 = 361
100_20 = 400
100_21 = 441
100_22 = 484
100_23 = 529
100_24 = 576
100_25 = 625
100_26 = 676
100_27 = 729
100_28 = 784
100_29 = 841
100_30 = 900
100_31 = 961
100_32 = 1024
100_33 = 1089
100_34 = 1156
100_35 = 1225
100_36 = 1296
1 * 35 - 2 * 14 = 7
1 * 14 - 0 * 35 = 14
2 * 14 - 0 * 35 = 28
1 * 35 - 1 * 14 = 21
1 * 35 - 0 * 14 = 35
3 * 14 - 0 * 35 = 42
1 * 14 + 1 * 35 = 49
Ребенок-Кукла-Форма
Событие-текст-отношение с другими объектами
Явление природы-макет-вид
Процесс создания объекта-план действий-алгоритм
Здание-рисунок-элементный состав
<span>Вот так, мы это делали.</span>