Помогите с информатикой, паскаль, срочно, пожалуйста

program SumAndProduct;

var
number, digit1, digit2, digit3, sum, product: integer;

begin
// Ввод трехзначного числа
writeln('Введите положительное трехзначное число:');
readln(number);

// Проверка на трехзначность и положительность
if (number < 100) or (number > 999) then
begin
writeln('Ошибка: Введено не трехзначное число.');
exit;
end;

// Выделение цифр
digit3 := number mod 10; // Последняя цифра
digit2 := (number div 10) mod 10; // Средняя цифра
digit1 := number div 100; // Первая цифра

// Расчет суммы и произведения
sum := digit1 + digit2 + digit3;
product := digit1 * digit2 * digit3;

// Вывод результатов
writeln('Сумма цифр = ', sum);
writeln('Произведение цифр = ', product);

readln; // Чтобы консоль не закрылась сразу
end.

Кто-то до сих пор паскаль учит? Он вообще в наше время кому-то нужен? Вроде его никто давн оен использует, он вымер просто

program SumAndProductOfDigits;
var
number, digit1, digit2, digit3, sum, product: integer;
begin
// Ввод трехзначного числа
write('Введите трехзначное число: ');
readln(number);

// Проверка, что число трехзначное и положительное
if (number < 100) or (number > 999) then
begin
writeln('Ошибка: число должно быть трехзначным и положительным');
exit;
end;

// Разделение числа на цифры
digit1 := number div 100; // Первая цифра (сотни)
digit2 := (number div 10) mod 10; // Вторая цифра (десятки)
digit3 := number mod 10; // Третья цифра (единицы)

// Вычисление суммы и произведения
sum := digit1 + digit2 + digit3;
product := digit1 * digit2 * digit3;

// Вывод результатов
writeln('Сумма цифр = ', sum);
writeln('Произведение цифр = ', product);
end.