Programa em Pascal

[andreza.gomes 0]

Gente, bom dia!

 

 

Estou tentando desenvolver dois programas em Pascal pois só consegui o primeiro em C,mas não consigo rodar ele. Alguém pode me ajudar?

 

1- Um programa que leia um número inteiro positivo N e crie uma sub-rotina que receba como parâmetro esse valor N e retorne ao programa principal o valor de S obtido pelo seguinte cálculo: S=1+1/1! + 1/2! + 1/3! +...+1/N!

 

2- Um programa que leia 10 números inteiros e positivos e implemente um procedimento ou não. Sabe-se que um número é perfeito quando é igual à soma de seus divisores(exceto ele mesmo). Ex: os divisores de 6 são 1,2 e 3, e 1+2+3=6. Logo, 6 é um número perfeito. Para cada um dos valores lidos, o procedimento implementado deve ser executado para informar se o número é ou não perfeito.

 

Primeira Questão em C

 

#include <conio.h>
#include <iostream>
#include <stdio.h>
using namespace std;
float soma(int n){
float s=0, aux;
for(aux=1;aux<=n;aux++)s=s+1/aux;
return (s);}
int main (void){
float s;
int n;
cout <<"Insira um valor inteiro positivo.\n";
cin >>n;
if (n>=1){
s=soma(n);
cout <<"Soma = "<<s<<endl;}
else cout <<"Numero invalido!!\n";
system("pause");
return (0);
}