Составить программу вычесления модуля разности |a-b|=z

Var a, b, ztemp, z : real; Begin Write('Введите а: '); Readln(a); Write('Введите b: '); Readln(b); ztemp := a - b; Z := abs(ztemp); Write('z = ', z); End.