Цикл Поки

Якщо <умова> має значення TRUE (виконується), то виконується <оператор>, 

 після чого повторюється перевірка <умови>. Якщо <умова> має значення 

FALSE (не виконується), оператор WHILE припиняє свою роботу. 

Program While_Demo;
Var
 I  : Integer;
 St : String;
BEGIN
 Write('Введіть слово: ');
 Readln(St); 
 Writeln('Повторяю 10 раз.'); 
 I:=0;
 While I < 10 Do
  Begin
   Writeln(St);
   I:=I+1;
  End;
END.