************************ varianta c++ ********************
#include <iostream>
using namespace std;
int main()
{
int num, i, nmax, imax;
cout << "introdu 4 numere: " << endl;
cin >> num;
nmax=num; imax=1;
for (i=2; i<=4; ++i)
{
cin >> num;
if (num>nmax)
{
nmax=num; imax=i;
}
}
cout << "Indicele celui mai mare num[r este " << imax;
}
************************* varianta pascal *****************
program index;
var num, nmax, imax, i: integer;
begin
writeln('introdu 4 numere:');
read(num); nmax:=num; imax:=1;
for i:=2 to 3 do
begin
read(num);
if num>nmax then begin nmax:=num; imax:=i; end;
end;
writeln('Indicele numarului maximal este ', imax);
end.
