var a, property: integer; 

begin

write('Nhap so: ');

read(a);

if i>=10 then 

begin

property:=i; i:=i+1;

end;

end.

{Chu thich: That su minh khong hieu cai luu do nay thay co cua ban lay tu dau ra nua. Chua ke den la cai Property rat kho hieu. Ma lop 8 chua yeu cau hoc sinh ve va phan tich luu do nen minh nghi ban nen hoi thay co cua ban ve viec ra bai nay.}

Program Hotboy;

Uses crt;

Var i,n : real;

Begin

Clrscr;

i:=1;

While i>= 10 do 

Begin

N:=i; 

i:=i+1;

Writeln(n);

End;

Readln

End.

*Chương trình này không thực hiện được đâu nha bạn

Vì $i $ được gán với 1 nên $i $ luôn nhỏ hơn $10$

=> không thoả mãn điều kiện 

=> chương trình sẽ đến không thực hiện công việc XD