Здраствуйте с домашкой по Pacal ABC

Даны три числа. Вывести порядковый номер меньшего из них.

На С++ попробую по фасту написать.
int main()
{
int a,b,c,d,z,sum;
cout<<"Сколько денег ты потратил на игры в этом месяце?"<<endl;
cin>>a;
cout<<"Сколько денег ты потратил на еду в этом месяце?"<<endl;
cin>>b;
cout<<"Сколько денег тебе дали родители в этмо месяце?"<<endl;
cin>>c;
cout<<"Сколько денег ты одолжил другу в этом месяце?"<<endl;
cin>>d;
cout<<"Сколько денег ты потратил на себя в этом месяце?"<<endl;
cin>>z;
sum=a+b+c+d+z;
cout<<"Общая сума - "<<sum<<endl;

system("pause");
return 0;
}

#include "iostream"
#include <Windows.h>
#include <cmath>
using namespace std;

int main() {
setlocale(LC_ALL, "Russian");
int n, x;
int summ = 0;
int mas[100];
do {
   cout << "Введите количество чисел в последовательности от 1 до 100: ", cin >> n;
}
while (n < 1 && n > 100);
for (int i = 0; i < n; i++){
   do {
      cout << "Введите " << i << " число: ", cin >> x;
 } while (abs(x) > 300);
    mas[i] = x;
    if (x % 6 == 0){
    summ += x; } else
    if (x % 10 == 8){
    summ += x;
   }
}
cout << "Сумма чисел: " << summ << endl;
system("pause");
}