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

var a, b: longint;beginwrite ('введите число -> ');readln (a);a:=a mod 10;b:=(a*a) mod 10;writeln ('последняя цифра квадрата числа -> ',b);end.

var i: Integer; begin  write('Число: ');  readLn(i);  i := i mod 10;  writeLn('Цифра квадрата = ',  sqr(i) mod 10); end.