Var
a: integer;
begin
read (a);
write ((sqr(a mod 10)) mod 10);
end.
5FF = 256*5 + 16*15 + 1*15 =1280 + 240 + 15 = 1535 байт = 12280 бит
program Sum;
var
a,b,c,s: integer;
begin
WriteLn('Введите числа а,в,с');
ReadLn(a,b,c);
s:=a+b+c;
WriteLn('Сумма чисел равна',s);
end.
Инверсия - унарная операция<span> над </span>суждениями<span>, результатом которой является суждение «противоположное» исходному т.е. при 0 противоположное 1, а при 1 ->0</span>