помогите перевести код паскаля в си

есть код программки в паскале, очень нужно перевести в си.

var

a,n:integer;

begin

repeat

readln(a);

until a>7;

while a mod 5<>0 do

begin

a:=a-3;

inc(n);

end;

writeln('3*',n,' 5*',a div 5);

readln;

end.