Помогите перевести код с Паскаля на си. Пожалуйстаvarb,uroven, chislo, popytki, number,

Помогите перевести код с Паскаля на си. Пожалуйста

var
b,uroven, chislo, popytki, number, max :integer;

begin
randomize;
writeln('');
writeln(' Игра "Угадай число" ');
writeln('');
repeat
writeln;
uroven:=0;
popytki:=0;

while (urovenlt;1) or (urovengt;4) do //Охрана от неправильно введенного уровня
begin
writeln('Выберите уровень трудности:');
writeln('1 - Числа от 1 до 10, 3 попытки');
writeln('2 - Числа от 1 до 50, 5 попыток');
writeln('3 - Числа от 1 до 100, 8 попыток');
writeln('4 - Числа от 1 до 1000, 15 попыток');
readln(uroven);
end;

if uroven =1 then begin chislo:=random(10)+1; max:=3 end;
if uroven =2 then begin chislo:=random(50)+1; max:=5 end;
if uroven =3 then begin chislo:=random(100)+1; max:=8 end;
if uroven =4 then begin chislo:=random(1000)+1; max:=15 end;

repeat
inc(popytki);
write('Попытка ',popytki,' Ваше число? ');
read(number);

if numbergt;chislo then writeln(' Я загадал число гораздо меньше') else
if number writeln('Вы угадали!')
until (chislo=number)or(popytki=max);
if (chislolt;gt;number)and(popytki=max)then writeln('К раскаянью, Для вас не удалось отгадать число. Я загадал ',chislo);
writeln('Желаете сыграть еще раз? Если да, введите 1, если нет, то 0');
readln(b);
until b=0;
end.