Помогите с задаче в СИ

Дана последовательность не более 30 ненулевых целых чисел,
индикатором окончания последовательности является 0. Ввести
последовательность в одномерный массив и Найти порядковые номера и сумму двух наибольших элементов.

Написал в паскале!
program prim;
var b:array[1..30] of integer;
i,k,max,mex,n,a,x:integer;
begin
for i:=1 to 30 do begin
readln(x);
if x=0 then break;
b:=x;
end;
for i:=1 to 30 do
if b>max then begin
max:=b;
n:=i;
end;
for i:=1 to 30 do
if b>mex then if b;
a:=i;
end;
writeln('индекс1=',n,', ','индекс2=',a,', ', 'сумма=',max+mex);
end.

А оказывается надо в СИ! Занятия по которому я пропустил (
Хоть и говорят, что коды одни и те же почти, все равно не могу понять (
Помогите переписать эту задачу в СИ!
Заранее благодарен!