Ввести числа А,В,С. Если Аamp;gt;=Bamp;gt;=C, то поменять местами значения А и

program zz1;

var a, b, r, c:integer; //задаем переменные целого типа

begin

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

read(a);  

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

read(b);

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

read(c);

if (a gt;= b) and (b gt;= c)  // проверяем, если выполняется заданное условие, то

then begin r:=a; a:=b; b:=r; end; // производим обмен

write( a = , a, b = , b, c = , c); // выводим ответ

end.