Даны два числа А и В. Переменной А присвоить большее, а в переменной В – меньшее из двух значений, находившихся там ранее
Program prog; Uses crt; var a,b, tmp: real; begin clrscr; write('A = '); readln(a); write('B = '); readln(b); writeln; if (abegin tmp:=a; a:=b; b:=tmp; end; writeln ('A = ', a); writeln ('B = ', b); end.