Составить программу вычесления модуля разности |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.