<span>//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)</span>
begin
var (a,b):=(Random(0,10),Random(0,10));
if a=b
then Println(a,'=',b)
else Println(Random(0,10),Random(0,10));
end.
1 байт = 8 битам, тогда 520/8=65 байт
Var
A:integer;
Begin
Write(A);Read(A);
if (A>9)and(A<100) then Write('А - двузначное')
else Write('А - не двузначное')
End.
1 бит=0.125 байт
72*0.125=9