Viết ngôn ngữ lập trình pascal trong đề sau: Mẹ nhờ Lan đi mua đồ ăn và mua không quá 10 quả trứng. Em hãy giúp Lan tính tiền mua trứng nhé ! Biết rằng một quả trứng là 2000 đồng Các bạn làm ơn giúp mình nhé!

program hotboy;

uses crt;

var tien, n : integer;

begin

clrscr;

repeat 

write('nhap so trung ma me nho Lan mua');

readln(n)

until n<=0;

tien:=2000*n;

write('so tien de Lan mua trung la',tien); 

readln

end.

Program Muatrung;
Uses crt;
Var n: byte; s:integer;
Begin
        Clrscr;
        Write('Nhap so luong trung: '); Readln(n);
        If n>10 then
        Begin
                Write('Nhap sai! Yeu cau nhap lai: '); Readln(n);
        End;
        s:=2000*n;
        Write('So tien phai tra: ',s);
        Readln
End.

----------------------------------------------

Không hiểu chỗ nào hỏi mình :33