Напишите программу которая по последней цифре числа определяет последнюю цифру квадрата этого числа

Var
  a: integer;
begin
  read (a);
  write ((sqr(a mod 10)) mod 10);
end.

нашел раз принтер небольшой дом. залез в него и начал там жить. пришла мышь и спрашивает: "кто в теремке живет? " и принтер отвечает: "я здесь живу, заходи вместе жить будем. " . жили они хорошо. пришел модем и спрашивает "кто в теремке живет? " ему отвечают "принтер и мышь . заходи вместе жить будем."стали вместе жить. пришла клавиатура и спросила "кто тут живет? " и ей ответили " принтер, мышь и модем . заходи вместе жить будем." жили они вместе. пришел монитор и спрашивает "кто в теремке живет? " ему ответили "мест нет! ". залез монитор в теремок и начал там жить. так и появился компьютер.

Оператор div отрезает последнюю цифру числа, а mod считает остаток от деления на 2. Если он равен нулю, то выполняется действие M:= M + x mod 10.
Сначала выводится переменная L, в ней содержится счетчик, который считает, сколько раз оператор div отрежет цифру. Отсюда следует, что число должно быть трехзначным. В нашем случае ответом будет число 999, потому что div отрежет последнюю цифру три раза, а условие if x mod 2 = 0 then не будет выполнятся, потому что  остаток от деления на 2 числа 999 не равен нулю, программа выведет 0.
ответ: 999