доброго дня!
есть условие если а>b - первый вариант
если а<b - второй вариант
если а=b - третий

можно ли записать условие в паскале покороче чем я:
if a>b then
write('1');
  else if a=b then
             write('3');
else write(2);

можно, но зачем?

Write(a>b?1:a=b?3:2);

Write(2+((a-b)/Sqrt(Sqr(a-b))));

Тока при a=b не работает, а так - нормально

Ах черт, варианты перепутал

+(2) только это работает не в обычном паскале, а в PascalABC.NET

(3) в пасе abs есть, плюс перед выводом inttostr надо. или даже floattostr

(7) abs() - это тоже условие.
А inttostr - не надо. По крайней мере, во времена ТП 7.0 было не надо.

(8) "abs() - это тоже условие"
а вот это необязательно, может там знаковый бит в нолик ставится и всё.

(9) Какой знаковый бит?

(10) ну я имею в виду внутреннюю реализацию функции.
для integer знак числа определяется старшим битом. 0 - положительное, 1 - отрицательное

соответственно abs можно реализовать без условий.

для чисел с плавающей точкой, вроде, так же

integer -32768..+32767
word 0..65535
оба занимают 2 байта, у integer старший бит под знак, поэтому число вдвое меньше

(11) (14) Какой ты хитрый! В целочисленном знаковом представленнии всё немого сложнее знакового бита.
-а = NOT а + 1

Т.е. для ShortInt:

a=15; 'a=00001111'
-a=-15; 'a=11110000+00000001=11110001

Это делается для того, чтобы и знаковые и беззнаковые целочисленные можно было складывать по одним правилам:
a+(-a) = 0;
'a+(-a) = 00001111+11110001 = 00000000'

(13) А для real всё ещё сложнее.

(15) точно. вот про это совсем забыл.

загуглил "asm abs" - всё равно без условий можно :)