ПЕРЕВОД КОДА

[2008kedr2008]

помогите перевести код на си
uses crt;
const n=20;
var i,j,k,m,min:longint;
a:array[1..n,1..n]of longint;
begin
clrscr;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=i*i*i+j*j*j;//создаем матрицу сумм кубов разумного предела до 20
min:=high(integer); //по двум направлениям ищем минимальное такое
for i:=1 to n do
for j:=1 to n do
for k:=1 to n do
for m:=1 to n do
if(a[i,j]=a[k,m])and (i<>k)and (j<>m) //чтоб числа совпадали, а никакие номера не совпадали
and(i<>m) and (j<>k) and (a[i,j]<min) then
begin
min:=a[i,j];
writeln('Chislo=',a[i,j],' 1var: ',i,'; ',j,' 2 var ',k,'; ',m);
end;
readln;
end.