begin Read(m,n); d:=m mod 10 - n mod 10; if d<0 then Writeln('У 1-го числа разряд единиц меньше') else if d>0 then Writeln('У 2-го числа разряд единиц меньше') else Writeln('У обоих чисел разряды единиуц равны') end.
Function Sign(x:real):integer; begin if x<0 then Sign:=-1 else if x=0 then Sign:=0 else Sign:=1; end; var a,b:real; begin writeln('a, b:'); readln(a,b); writeln('Sign(A) + Sign(B) = ',Sign(a) + Sign(b)); end.