1)Даны три вещественных числа.Не используя полный условный оператор,определить наибольшее из них.Так?
program pr1;var a,b,c:real;beginwrite('введите а');read(a);write('введите b');read(b);write('введите с');read(c);if((b>a) and (a>c)) then write('true') else write('false');read;end.

Спасибо, но как написать,что больше,а что нет?:(

Не совсем понимаю ваш вопрос. Эта программа выводит большее из трех чисел, как того и требовалось по условию. Вы хотите, чтобы вместе с числовым значением выводилась и его переменная, то записывается это, например, так: if (a>b) and (a>c) then Write('Максимальное число: a = ', a). Или вовсе без числового значения: Write('Максимальное число: a '). Аналогично поступаете c b и c.

Огромное спасибо)

не используя полный, но используя неполный условный оператор