Найти младший разряд числа, равного сумме квадратов двух исходных - Pascal ABC

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

Помогите пожалуйста или направьте на путь истинный.

Составить программу, которая запрашивает у пользователя два целых числа и находит младший разряд(цифру единиц) числа, равного сумме квадратов исходных.

Решение задачи: «Найти младший разряд числа, равного сумме квадратов двух исходных»

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

var a,b,c:integer;
begin
writeln('Введите 2 целых числа');
read(a,b);
c:=a*a+b*b;
writeln('Сумма квадратов=',c);
write('Цифра младшего разряда=',c mod 10);
end.

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

Объявлены три переменные типа integer: a, b и c.
Выводится сообщение с просьбой ввести два целых числа.
Введенные числа считываются в переменные a и b.
Переменная c инициализируется как сумма квадратов a и b.
Выводится сообщение о сумме квадратов с использованием writeln с конкатенацией строк, вставляемых в текст сообщения.
Выводится сообщение с использованием write, в котором используется конкатенация строк и переменная c.
Выводится сообщение с использованием write, в котором используется конкатенация строк и переменная c mod 10, чтобы получить младший разряд числа c.
Программа завершается.