Даны действительные числа x, y. Вывести на экран то из их,

program zz1;

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

begin

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

readln(x);  

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

read(y);

If (x gt; y)

Then write(y,  , x)

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

END.

program zz1;

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

begin

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

read(x);  

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

read(y);

If (x gt; 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.