Укажите, сколько раз выполнится тело цикла: D:=5; WHILE D>0 DO D:=D-2;

1. Основная трудность при чтении египетских иероглифов в том, что большинство египтян не имели понимания древнегреческой системы иероглифов.
2. Египтяне использовали значки-определители для того, чтобы лучше было читать. Значки-определители служили для звучаний слов.
3. Потому что само чтение или писание древнегреческих иероглифов было сложно , так как в то время образования было ужасным.
4. Первым, кому удалось расшифровать египетские иероглифы, был французский учёный, Жан-Франсуа Шампольон(1790-1832). Он составил полный список иероглифов и их греческих эквивалентов, создав тем самым основу для перевода всех египетских иероглифических текстов.
5. Основным носителем информации в египте являлись глиняные таблички, папирусные свитки и наскальные надписи.
6. Стебли растения разрезали на полосы, которые переплетали между собой, прессовали и высушивали на солнце.
7. Хранили в глиняных кувшинах и шкатулках.

Var
   a,b,d,K,kp:integer;
   P:boolean;
Begin
kp:=0;
ReadLn(a,b);
if (a = 1)or(a = 2) then
   Begin
   kp:=2;
   Write(2,' ',3)
   end
else if a = 3 then
        Begin
        kp:=1;
        Write(3);
        End;
if a < 5 then a:=5
else if a mod 2 = 0 then a:=a+1;
While a<=b do
   Begin
   K:=Trunc(Sqrt(A));
   d:=3;
   P:=true;
   While d <= K do
      Begin
      if A mod d = 0 then P:=false;
      d:=d+2
      End;
   if P then
      Begin
      kp:=kp+1;
      Write(' ',a);
      End;
   a:=a+2
   End;
if kp = 0 then Write(0)
End.