Viết chương trình pascal: viết chương trình tính tổng 10 số nguyên cộng lại bằng câu lệnh while..do

program phuongt;
uses crt;
   var n, i, s: integer;
begin
       clrscr;
       s:=0;
       n:=0;
       i:=1;
       while i<=10 do
       begin
               write(‘Nhap so thu ‘, i, ‘: ‘); readln(n);
               s:=s+n;
               i:=i+1;
       end;
       write(‘Tong = ‘, s);
       readln
end.