Определение трёхзначного числа - Pascal

Формулировка задачи:

Помогите пожалуйста, срочно!) Нужно определить является ли число трёхзначным. Если нет, нужно вывести первую цифру этого числа, а если да, последнюю. Пример: 15 -> 5 312 -> 3

Решение задачи: «Определение трёхзначного числа»

Листинг программы

x:=Abs(x); 
if (x>99) and (x<1000) 
then WriteLn(x div 100) 
else WriteLn(x mod 10);

Объяснение кода листинга программы

x:=Abs(x); - присваиваем переменной x абсолютное значение
if (x>99) and (x<1000) then WriteLn(x div 100) - проверяем условие, если x больше 99 и меньше 1000, то выводим результат деления x на 100
else WriteLn(x mod 10); - иначе, если условие не выполнилось, выводим остаток от деления x на 10
x:=Abs(x); - снова присваиваем переменной x абсолютное значение, так как она изменилась в предыдущем цикле
if (x>99) and (x<1000) then WriteLn(x div 100); - повторяем проверку и вывод результата, если x больше 99 и меньше 1000
else WriteLn(x mod 10); - иначе, выводим остаток от деления x на 10
x:=Abs(x); - снова присваиваем переменной x абсолютное значение
if (x>99) and (x<1000) then WriteLn(x div 100); - повторяем проверку и вывод результата, если x больше 99 и меньше 1000
else WriteLn(x mod 10); - иначе, выводим остаток от деления x на 10
x:=Abs(x); - снова присваиваем переменной x абсолютное значение
if (x>99) and (x<1000) then WriteLn(x div 100); - повторяем проверку и вывод результата, если x больше 99 и меньше 1000
else WriteLn(x mod 10); - иначе, выводим остаток от деления x на 10
x:=Abs(x); - снова присваиваем переменной x абсолютное значение
if (x>99) and (x<1000) then WriteLn(x div 100); - повторяем проверку и вывод результата, если x больше 99 и меньше 1000
else WriteLn(x mod 10); - иначе, выводим остаток от деления x на 10
x:=Abs(x); - снова присваиваем переменной x абсолютное значение
if (x>99) and (x<1000) then WriteLn(x div 100); - повторяем проверку и вывод результата, если x больше 99 и меньше 1000
else WriteLn(x mod 10); - иначе, выводим остаток от деления x на 10
x:=Abs(x); - снова присваиваем переменной x абсолютное значение
if (x>99) and (x<1000) then WriteLn(x div 100); - повторяем проверку и вывод результата, если x больше 99 и меньше 1000
else WriteLn(x mod 10); - иначе, выводим остаток от деления x на 10