WHILE DO

Agora vamos aprender o WHILE DO
Usando o while pedimos ao Pascal para repetir "enquanto" a expressão for verdadeira.
Vamos ao exemplo:

Program Pzim ;
var
n:integer;
cont:string;
 Begin 
 cont:='sim';      
 while (cont='sim') do
 begin
 writeln('Digite um numero');readln(n);
 writeln('Voce digitou o numero ', n);
 writeln('digite sim para continuar ou qualquer tecla para sair');readln(cont);

 end;
 End.

Explicação:
1-Declarei as variáveis, dentre elas a variável CONT do tipo STRING.
2-Declarei que a variável conte recebe o valor da palavra SIM.
3-Esse é o While, vamos usar a variável, enquanto cont for igual a SIM repita.
4-Vai pedir seu nome, ler ele, e perguntar se você quer digitar outro nome.
5-Se voce digitar SIM ele vai entender que cont foi verdade, e volta a perguntar seu nome, se você digitar NAO a reposta vai ser falsa, e portanto ele sairá do porgrama.

Agora vamos dar um valor para o WHILE repetir, vamos fazer um programa que faça uma operação fácil e simples de adição.

Exemplo:

Program Pzim ;
var
a,b,c,cont:integer;
 Begin
 while (cont<7) do
 begin
 write('Digite o primeiro numero numero');readln(a);
 write('Digite o segundo numero');readln(b);
 writeln('A soma dos numeros é: ', a+b);
 cont:=cont+1;
 end;
 End.

Explicação:
1-Declarei as variaveis,cont sera o contador, A o primeiro número e B o segundo.
2-Pedi os números e li.
3-Criei um contador, ou seja CONT vai receber CONT mais 1.
4-ele vai exibir a resposta da adição e pedir novamente novos números até o número que você deu de limite no programa.