Looping de repetição usando Repeat Until em Pascal com interação do usuário

 Ola meus Padawans. 
O Looping de repetição com Repeat Until é tão fácil como o anterior.
Veja o exemplo:

Produto final:

Como vocês viram, não requer prática nem tão pouco habilidade... kkk

Até a próxima Padawans...