Var i: Integer;
begin
write('Число: ');
readLn(i);
i := i mod 10;
writeLn('Цифра квадрата = ',
sqr(i) mod 10);
<span>end. </span>
Всё достаточно просто div деление нацело(т.е. без остатка) mod (выделение остатка от деления)
a:=7;простое присвоение
b:=7*2=14;умножение
a:=0+3=3;при деление 3 на 6 остаток равен нулю и плюс 3
b:=0+14=14 при деление 3 на 14 остаток 0 и плюс 14
Вот и всё :D
<span>с получением и передачей, хранением и обработкой информации. </span>