Перевисти из языка c++ в с

вот код:

#include

#include

using namespace std;

int main()

{

unsigned int val;

cin > > val;

if (! val) return -1;

int dig_count = ceil( log10(val) );

if (! dig_count % 2 || dig_count == 1) {

cout < < "m = " < < val;

return 0;

}

unsigned int new_val = 0, except = dig_count / 2, rank = 1;

for (size_t i = 0; i ! = dig_count; i++, val /= 10)

if (i ! = except) {

new_val += (val % 10) * rank;

rank *= 10;

}

cout < < "m = " < < new_val;

return 0;

}

сама :

дано натуральное число n.если число содержит 5 цифр,то

получить новое число м,которое образуется путем исключения

средней цифры исходного числа.если количество цифр не 5,то

m=n пример.n=12345, м=1245.

◘Объективность информации. Например: "На улице холодно" - это субъективная информация. А "На улице -14°" - объективная (но не всегда точная)
◘Достоверность информации. Ин-фа достоверна, если отражает истинное положение дел. (объективная информация всегда достоверна)
◘Полнота информации. Информация полная, если ее достаточно для понимания и принятия решения.
◘Точность информации. Определяется степенью ее близости к реальному состоянию объекта, процесса, явления и т.д.
◘Актуальность информации – важность для настоящего времени.
◘Полезность информации.
 - Самая ценная информация – объективная, достоверная, полная, и актуальная.

Const
  MAX_SIZE = 10;
 
var
  a: array[1..MAX_SIZE] of integer;
  i, size: integer;
 
procedure delete_odd_elements();
var i, j: integer;
begin
  i := 1;
  repeat
    if odd(a[i]) then
    begin
      dec(size);
      for j := i to size do
        a[j] := a[j + 1]
    end
    else inc(i);
  until i > size;
end;
 
begin
  writeln('Исходный массив: ');
  size := MAX_SIZE;
  for i := 1 to size do
  begin
    a[i] := random(100);
    write(a[i] : 3);
  end;
  delete_odd_elements;
  writeln;
  writeln('Полученный массив: ');
  for i := 1 to size do
    write(a[i] : 3);
end.