Нужна программа, выводящая на экран последнюю цифру целого числа - Pascal ABC

Дано целое число . Нужна программа выводящая на экран последнюю цифру этого числа ,затем возводит в квадрат и выводит на экран.

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

var
  x: integer;
 
begin
  readln(x);
  writeln(x mod 10);
  writeln(sqr(x mod 10));  
end.

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

В данном коде используется язык программирования Pascal ABC.

Переменная x объявлена типа integer.
С помощью функции readln() считывается значение переменной x с консоли.
Функция writeln() используется для вывода значения переменной x на экран.
Вычисляется квадрат последней цифры числа x с помощью оператора % (остаток от деления) и функции sqr().
Выводится результат вычисления на экран с помощью функции writeln(). Таким образом, программа выводит на экран последнюю цифру целого числа, введенного пользователем.