Циклический Алгоритм с неизвестным кол-вом повторений, цикл с предусловием.. 2.тоже самое только вместо предусловия, постусловием 
Сам Алгоритм, с Действиями и тд.. из реальной Жизни) Срочно Надо Ребятки)
Информтика pascal ?
Погляди в любой книге любой пример по этим темам.
1. repeat - оператор цикла с постусловием
repeat
read(a)
until a in [10..100];
Цикл завершится, как только будет введено двузначное число.
2. while - оператор цикла с предусловием
while (a[ j ] >0) do begin
s:=s+a[j];
j:=j+1;
end;
Считаем сумму элементов массива до тех по пока они положительные.
⇢