Перевести с Паскаля на Си

[lyubov17]

Помогит, пожалуйста перевести данный код на Си!
Сама задача:
определить, является ли данная целочисленная квадратная матрица ортонормированной, то есть такой, в которой скалярное произведение каждой пары различных строк равно нулю, а скалярное произведение каждой строки на себя равно единице.


Код Pascal

 const n=3;
 var m:array[1..n,1..n] of integer;
 i,j,k:byte;
 f:boolean;
 s:integer;
 begin
 writeln('Enter ',n*n,' elements:');
 for i:=1 to n do
 for j:=1 to n do
 read(m[i,j]);
 readln;
 writeln('Current Matrix:');
 for i:=1 to n do
 begin
 for j:=1 to n do
 write(m[i,j]:3);
 writeln;
 end;
 writeln;
 i:=1;
 f:=true;
 repeat
 j:=1;
 repeat
 s:=0;
 for k:=1 to n do
 s:=s+m[i,k]*m[j,k];
 if ((i=j) and (s<>1)) or ((i<>j) and (s<>0)) then f:=false;
 j:=j+1
 until not(f) or (j=n+1);
 i:=i+1
 until not (f) or (i=n+1);
 if f=true then writeln ('Ortonorm')
 else writeln ('Not ortonorm');
 readln
 end.

Заранее огромное спасибо!!!