BÀI 6. CÂU LỆNH ĐIỀU KIỆNCÂU HỎI VÀ BÀI TẬP

uses crt;

var X,Y,Z: real;

begin

clrscr;

write('Nhap so X = '); readln(Y);

write('Nhap so Y = '); readln(Y);

if X>Y then begin Z:=X; X:=Y; Y:=Z;

writeln(X,’ ’,Y);

readln

end.