viết phương trình in ra màn hình bảng nhân của 1 số từ 1 đến 9 dùng while do và dừng màn hình để có thể quan sát kết quả GIÚP E VS Ạ

uses crt;

var i,n:integer;

begin

  clrscr;

  write('Nhap 1 so: ');readln(n);

  i:=1;

  writeln('Bang cuu chuong cua ',n,' la:');

  while i < 10 then 

     begin

        writeln(n,'     x     ',i,'     =     ',n*i);

        i := i + 1;

     end;

  readln;

end.

program oken;
uses crt;
var i,n:longint;
begin
        clrscr;
        write('Nhap 1 so bat ky: '); readln(n);
        writeln('  BANG CUU CHUONG ',n);
        i:=1;
        while i<=9 do
                begin
                        writeln('   ',n,' * ',i,' = ',n*i);
                        i:=i+1;
                end;
        readln;
end.