Bài 1. Viết chương trình nhập hai số nguyên a và b khác nhau từ bàn phím và in hai số đó ra ngoài màn hình theo thứ tự không giảm

2 câu trả lời

program bai_giai;

uses crt;

var a,b:longint;

begin

clrscr;

write('nhap a:');readln(a);

write('nhap b:');readln(b);

while a=b do

begin

write('nhap lai a:');readln(a);

write('nhap lai b:');readln(b);

end;

if(a>b)then write(a,' ',b)else write(b,' ',a);

readln;

end.

uses crt;
var a,b:integer;
begin 
clrscr;
   write('Nhap 2 so nguyen: ');readln(a,b);
   if a<b then writeln(a,' ',b) else writeln(b,' ',a);
readln
end.