Пуск-Панель управления-Мышь- Свойство
Попириписывалась пол опроса им про ос ряд Ир щмр
Это может обычный виндосовский калькулятор 54.615(10) = 110110.10011101011100001010001111010111000010100011110101(2)
Program zadanie;
Var x,y:real;
Begin
Writeln('Введите значения x и y');
Readln(x,y);
If x>y Then
begin
x:=x+y;
y:=x-y;
x:=x-y;
Writeln('x=',x);
Writeln('y=',y);
end;
End.