Даны действительные числа x, y. Вывести на экран то из них, которое меньше. Даны два символа (латинские буквы). Вывести их на экран в порядке возрастания по алфавиту. Полный бидон с молоком весит p кг. Бидон, наполненный наполовину, весит q кг. Сколько весит пустой бидон?

program zz1;

var x, y:char; / / задаем переменные символьного типа

begin

write ('введите первый символ '); / / вводим с клавиатуры символ

readln (x);

write ('введите второй символ '); / / вводим с клавиатуры символ

read (y);

If (x > y)

Then write (y, ' ', x)

else write (x, ' ', y); / / выводим ответ

END.

program zz1;

var x, y:real; / / задаем переменные не целого типа

begin

write ('введите первое действительное число '); / / вводим с клавиатуры не целое число

read (x);

write ('введите второе действительное число '); / / вводим с клавиатуры не целое число

read (y);

If (x > y)

Then write (' меньшее ', y)

else write (' меньшее ', x); / / выводим ответ

END.

program zz1;

var p, q, x, y:real; / / задаем переменные не целого типа

begin

write ('введите вес полного бидона '); / / вводим с клавиатуры не целое число

read (p);

write ('введите вес бидона, заполненного наполовину '); / / вводим с клавиатуры не целое число

read (q);

x : = p - q; / / пол бидона молока без тары

y : = q - x; / / пустой бидон

write (' пустой бидон весит = ', y); / / выводим ответ

END.