Ответ:

Вот пример программы на Pascal, которая решает задачу

program compareDigits;

var

number, firstDigit, lastDigit: integer;

begin

// Ввод трехзначного числа

write('Введите трехзначное число: ');

readln(number);

// Выделение первой цифры числа

firstDigit := number div 100;

// Выделение последней цифры числа

lastDigit := number mod 10;

// Сравнение первой и последней цифры

if firstDigit = lastDigit then

writeln('Первая и последняя цифры числа равны.')

else

writeln('Первая и последняя цифры числа не равны.');

end.

Краткое объяснение программы:

Пользователю предлагается ввести трехзначное число.

Первая цифра числа вычисляется путем деления числа на 100 (целочисленное деление, чтобы получить только целую часть).

Последняя цифра числа вычисляется путем вычисления остатка от деления числа на 10.

Проверяется, равны ли первая и последняя цифры, и выводится соответствующее сообщение.

Например, если пользователь вводит число 456, то программа выведет сообщение "Первая и последняя цифры числа не равны.", а если пользователь вводит число 121, то программа выведет сообщение "Первая и последняя цифры числа равны.".