Пожалуйста, помогите студентке 1 курса по программированию

Задача: Найти сумму кубов всех положительных элементов массива d[10]?
На С++ я составила программу, а теперь нужна схема алгоритма и на Паскали! Пожалуйста!!! !
Вот на С++
#include
#include
#include
const int n=10;
void main()
{
float d, k, s=0;
cout<<"Введите элементы массива d:\n";
for(int i=0; i>d;
if(d<0)
{ cout<