Pascal (linguagem de programação) - while

WHILE...DO É uma estrutura de repetição que se caracteriza por efetuar um teste lógico no início de um loop, verificando se é permitido executar o trecho de instruções abaixo dela. O seu funcionamento é controlado por condição, Desta forma poderá executar um determinado conjunto de instruções enquanto a condição verificada permanecer verdadeira. No momento em que a condição se torna falsa, o processamento da rotina é desviado para fora do loop. Sendo a condição falsa logo no início do loop, as instruções contidas nele são ignoradas.
Suas Características: o seu Controle é Manual, o step controlado pelo programador podendo ser inteiro, lógico ou Fracionário, busca condição de permanência.
Sintaxe:
while do begin end ;
Onde:
while - do - são palavras-chaves.
Condição - é uma expressão lógica.
Seqüência A de comandos – enquanto a condição for verdadeira será repetida.
Quando isto não mais ocorrer, a repetição é interrompida e a seqüência de comandos, que estiver logo após o end; da estrutura, passa a ser executada.

Primeiramente o comando while avalia a condição. Os comandos dentro do laço serão executados, caso o resultado for verdadeiro. Ao atingir o último comando do laço, o fluxo de execução é transferido para o inicio do laço novamente e mais uma vez a condição é testada. Caso se atinja o ultimo deles e o fluxo seja mais uma vez transferido para o inicio do laço. Este ciclo só é interrompido quando a expressão lógica resulta em Falso. Neste caso, o próximo comando depois do laço é executado e assim sucessivamente até o último comando do programa.
Exemplo de um algoritmo, utilizando a estrutura de repetição while:

Program Raiz_quadrados; Var Num,Qua: Integer; Begin Num:=0;