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

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

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