Написать программу вычисления разности d двух чисел a и b

Program wtf;
var a,b:integer;
begin
readln(a,b);
if(a=b) then write('числа одинаковы');
else write('числа разные');
end.