program tinhtich;

var i,P: real; ( không có dấu bằng )

begin

       i: =10; ( trước dấu "=" phải có dấu ":")

       P: =1;

       while i > 200 do 

begin

         P:= P*i;

         i:=i+1;

         end;

         write ('tich cac so tu nhien la: ',P);

         readln;

end.

--học tốt--

nếu dc thì cho mình câu trả lời hay nhất nhé !! 

program tinhtich;

var      i,P:real;               {Không có dấu "="}

Begin

           i:=10;                   {Gán GT cho biến phải có dấu ":"}

           P:=1;                    {Thiếu dấu "=", Nếu bạn gán cho P=0 thì kết quả sẽ là 0 vì số nào nhân với                                          0  cũng bằng 0}

           while i<200 do    {Đề bài là tính tích từ 10 đến 200 mà bạn cho i>200 thì sẽ không chạy                                                vòng while này}

           Begin

                       P:=P*i;

                       i:=i+1;

           End;

           write('Tich cac so tu nhien la: ',P};  {Nếu bạn in S thì nó sẽ sai kq vì S bạn chưa thực hiện gi}

            Readln;

End.