Question

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

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

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

while (uroven<1) or (uroven>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 number>chislo then writeln(' Я загадал число поменьше') else
if number writeln('Вы угадали!')
until (chislo=number)or(popytki=max);
if (chislo<>number)and(popytki=max)then writeln('К сожалению, Вам не удалось отгадать число. Я загадал ',chislo);
writeln('Хотите сыграть еще раз? Если да, введите 1, если нет, то 0');
readln(b);
until b=0;
end.

Answer 1

Текст поплыл поэтому я прикрепил текстовик с кодом. 
(писал на чистой Си)

856e9f8161b48a3c654356c4e1a7d67e.txt