Составьте программу, заменяющую из двух данных чисел большее а меньшее-модулем разности этих чисел.

Если на паскале то вот

program ad;
var a,b,z,s: integer;
begin
readln(a,b);
z:=(a+b)^2;
s:=a-b;
if s