Giúp mk với !!! Cho đoạn chương trình sau tìm giá trị của i For i:=1 to 10 do Begin…end;

program VD ;

uses crt ;

var N,i :integer ;

begin

    write(‘Nhap so N’) ; readln(N) ;

    writeln ;

    write(‘Bang nhan’,N) ;

    writeln ;

    for i:=1 to 10 do

       begin

           GotoXY (5,WhereY)

           writeln(N ,’x’ ,i:2 ,’=’ ,N*i:3) ;

           writeln ;

       end ;

readln ;

end.