Как программируется цикл с предусловием на паскале?

While (условие) do операция цикла

Задание 1

Оглавление может быть:

1. Полным, т.е. включать все рубрики произведения;

2. Сокращенным, т.е. быть составленным из части заголовков (например, без заголовков в подбор с текстом или иных заголовков нижних ступеней

3. Расширенным, т.е. включать заголовки, которых в тексте нет или которые в тексте словесно не обозначены.

=-=-=-=

Задание 2

Оглавление очень важно для текста, ведь благодаря нему, можно заинтересовать читателя, а так же указать основную мысль текста, чтобы читатель понимал, о чем идет речь

Var

N,A:integer;

Begin

Write('N = ');Read(N);

A:=0;

While N>0 do

  Begin

  if (N mod 10) > A then A:= N mod 10;

  N:=N div 10;

  End;

Write(A)

End.

Var

N,A,B:integer;

C:boolean;

Begin

Write('N = ');Read(N);

A:=-1;

B:=-2;

C:=false;

While N>0 do

  Begin

  if A=B then C:=true;

  if N>0 then

     Begin

     A:=N mod 10;

     N:=N div 10;

     End;

  if A=B then C:=true;

  if N>0 then

     Begin

     B:=N mod 10;

     N:=N div 10;

     End;

  End;

if A=B then C:=true;

if C then Write('Есть')

else Write('Нет')

End.