Даны два числа А и В. Переменной А присвоить большее, а в переменной В – меньшее из двух значений, находившихся там ранее

Program prog;Uses crt;var a,b, tmp: real;beginclrscr;write('A = ');readln(a);write('B = ');readln(b);writeln;if (a<b) thenbegintmp:=a;a:=b;b:=tmp;end;writeln ('A = ', a);writeln ('B = ', b);end.