СРОЧНО ИНФОРМАТИКА ПОМОЩЬ НУЖНА !!!

Вот на PascalABC:

Program ex2;
var N : Longint; Len, Sum, Chet, Mx, Zif : integer; S, Sobr : string; Sim : char;
begin
Write (' Введите число N : '); ReadLn (N);
S := IntToStr( N); Len := Length (S); // Количество цифр
WriteLn (' Количество цифр = ', Len);
Sum := 0;
for var i := 1 to Len do // Сумма цифр числа
Sum := Sum+StrToInt(S[i]);
WriteLn (' Сумма цифр = ', Sum);
WriteLn (' Первая цифра = ', S[1]); // Первая цифра числа
Sobr := '';
for var i := Len downto 1 do // Меняем порядок цифр на обратный
Sobr := Sobr + S[i]; WriteLn (' Обратный порядок N :', Sobr);
// Находим количество четных цифр
Chet := 0;
for var i := 1 to Len do // Количество четных цифр
if (StrToInt (S[i]) mod 2 = 0) then Chet :=Chet + 1;
Writeln (' Количество четных = ', Chet);
Mx := - MaxInt;
for var i := 1 to Len do // Находим наибольшую цифру числа
if (StrToInt (S[i]) > Mx) then Mx := StrToInt(S[i]);
Writeln (' Наиболльшая цифра : ', Mx);
Sum := 0;
for var i := 1 to Len do // Сумма цифр, больших 5
if (StrToInt (S[i]) > 5) then Sum := Sum + StrToInt(S[i]);
Writeln (' Сумма больших 5: ', Sum); WriteLn;
Sum := 0;
Write (' Введи цифру : '); ReadLn (Sim);
for var i := 1 to Len do
if (S[i] = Sim) then Sum := Sum + 1;
Writeln (' ', Sim, ' встручатся ', Sum , ' раз/а');
end.

Пример программы на языке Pascal с решением всех задач:

pascal
program sх2;
var
number, count, sumDigits, firstDigit, reversedNumber, countEven, maxDigit, sumGreaterThan5, digitToFind, countDigitToFind: integer;
begin
write('Введите число: ');
readln(number);

// Подсчитываем количество цифр
count := length(IntToStr(number));
writeln('Количество цифр: ', count);

// Находим сумму цифр числа
sumDigits := 0;
while (number > 0) do
begin
sumDigits := sumDigits + (number mod 10);
number := number div 10;
end;
writeln('Сумма цифр числа: ', sumDigits);

// Находим первую цифру числа
firstDigit := StrToInt(copy(IntToStr(number), 1, 1));
writeln('Первая цифра числа: ', firstDigit);

// Меняем порядок цифр на обратный
reversedNumber := StrToInt(reverseString(IntToStr(number)));
writeln('Число с обратным порядком цифр: ', reversedNumber);

// Находим количество четных цифр
countEven := 0;
while (number > 0) do
begin
if (number mod 2 = 0) then
countEven := countEven + 1;
number := number div 10;
end;
writeln('Количество четных цифр: ', countEven);

// Находим наибольшую цифру числа
maxDigit := 0;
while (number > 0) do
begin
if (number mod 10 > maxDigit) then
maxDigit := number mod 10;
number := number div 10;
end;
writeln('Наибольшая цифра числа: ', maxDigit);

// Находим сумму цифр, больших 5
sumGreaterThan5 := 0;
while (number > 0) do
begin
if (number mod 10 > 5) then
sumGreaterThan5 := sumGreaterThan5 + (number mod 10);
number := number div 10;
end;
writeln('Сумма цифр числа, больших 5: ', sumGreaterThan5);

// Ответ на вопрос: сколько раз данная цифра встречается в числе
write('Введите цифру: ');
readln(digitToFind);
countDigitToFind := 0;
while (number > 0) do
begin
if (number mod 10 = digitToFind) then
countDigitToFind := countDigitToFind + 1;
number := number div 10;
end;
writeln('Данная цифра встречается ', countDigitToFind, ' раз(а)');
end.


Пример ввода:
Введите число: 12345
Введите цифру: 1

Пример вывода:
Количество цифр: 5
Сумма цифр числа: 15
Первая цифра числа: 1
Число с обратным порядком цифр: 54321
Количество четных цифр: 2
Наибольшая цифра числа: 5
Сумма цифр числа, больших 5: 0
Данная цифра встречается 1 раз(а)