Составьте программу. Введите 2 числа

Вот поправленное решение, тестировал на turbopascal 7. Несколько ошибок в самом тексте задания: 1. Ничего не сказано на тему, что делать, если числа равны.2. Невозможно ничего записать в «меньшее число». Я интерпретировал это как «запишите в переменную, имеющую меньшее значение» Если еще есть вопросы\дополнения, обязательно пишите. var sum,sub: real; x,y: real; beginwrite ('input x: '); readln (x); write ('input y: '); readln (y); sum: =x+y; sub: =x-y; if x>y thenbegin y: =sum; x: =sub; end elsebegin x: =sum; y: =sub; end; writeln; writeln ('x=',x: 10:3); writeln ('y=',y: 10:3); writeln ('Press enter'); readln; end.