một người có số tiền là X. hãy cho biết người đó có phải là một triệu phú hay không?với điều kiện 1 người trở thành triệu phú nếu họ có số tiền từ 1 triệu đô la trở lên

Program ailatrieuphu;

Uses crt;

Var X:longint;

Begin

Clrscr;

Write('Nhap so tien cua ban:');

Readn(X);

If X>=1000000 then writeln('Ban chinh la trieu phu') 

                         Else Writeln('Ban khong phai la trieu phu');

Readln

End.

uses crt;

var  a,b:integer;

begin

write('nhap so tai san bn dang so huu: ');readln(a);

b:=1000000;

if a>b then writeln('Chuc mung bn la trieu phu :>>> (P/S: cho mk xin it tien ik  :>>>)') else writeln('Bn chx phai la trieu phu :<<< (P/S: mk se cho bn thanh ty phu neu bn cho mk tlhn,5*+tym :>>>> )');

readln;

end.