циклы Опции

[SAF]

люди плзз памагите решить задачи оч надо:
цикл с предусловием
1.найти первое число в последовательности фиббоначи, большее n (n вводиться с клавы, n<1)
2.сумму всех чисел последовательности фиббоначи которые не превосходят 1000.

цикл с постусловием
решить задачу на табуляцию функции

и еще задача вроде легкая а решить немогу всевремя какие то ошибки "проверить можно ли построить параллелограмм из отрезков с длинами x y v w.

БОЛЬШОЕ СПАСИБООООО

[klem4]

Поиск -> Фибоначчи

?

и еще задача вроде легкая а решить немогу всевремя какие то ошибки "проверить можно ли построить параллелограмм из отрезков с длинами x y v w.

if ((x = y) and (v = w)) or ((x = v) and (y = w)) or ((x = w) and (y = v))
 then writeln('Yes')
else
 writeln('No');