Var
a,b,d:integer;
begin
Read(a,b);
d:=a mod 10 - b mod 10;
if d<0 then Writeln('Разряд единиц меньше у 1-го числа')
else
if d>0 then Writeln('Разряд единиц меньше у 2-го числа')
else Writeln('Разряды единиц у обоих чисел равны')
end.
Program zadacha;
Var n,ch:integer;
Begin
Writeln('vvedit n');
Readln(n);
ch:=(n-5)/2;
Writeln('ch',ch);
End.
16 =
следовательно 4 бита на символ
4*32 =128 бит(информации несёт)