Procedimento Basico Pascalzim Pascal

Qualquer duvida deixe mensagem :)
Coloque gosto se gostar Obrigado!!!