Среди вводимых трех чисел найти разность наибольшего и наименьшего

Var a1,a2,a3,max,min,q: integer; beginread (a1,a2,a3); if a1a2 and a1>a3 then max: =a1; if a2>a1 and a2>a3 then max: =a2; if a3>a2 and a3>a1 then max: =a3; q: =max-min; write (q); end.